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El único límite del microcomputador MICROD1GITAL TKS5 es 'SU IMAGINACION”. 


GARANTIA: 6 MESES 


OPCIONALES: 

• Joystick (órgano de comando externo), para juegos de video • Generador de sonido 

• Expansor de memoria de 64 Kbytes RAM • Impresora directa • Programador de 
EPROM • Interface para conexión de impresora profesional (paralela). 


TK-05 


Importa y distribuye: ARVOC s.a.i.c.f.i. 

Avda. DIAZ VELEZ 4147 <12001 Capital I el.: 981-1980 9212 

J|ei^entiM:i^miHjrcio^emicrocomputadores^rti™lo^e^<>gar^lectronica^^^^^^^n^^J| 




isar 


EXPANSOR 
DE MEMORIA 
de 64 Kbytes RAM 


• JOYSTICK 
(órgano de comando externo) 

(opcional) 


• TK85. fue especialmente diseñado y 
construido para que Ud. lo use con extrema simplicidad. 
JgljjlP • Sólo basta consultar su ameno y completo manual 
de instrucciones, en Castellano por supuesto, y Ud. podrá 
Tender computación en forma fácil, rápida y práctica y en lenguaje BASIC. 
• A partir de allí Ud. podrá preparar sus propios programas, o también 
utilizar centenares de programas que existen en el mercado para estudiar: 
matemáticas; física; química; biología; música; catalogar clientes: controlar stocks; 
programar compras y ventas; controlar su cuenta bancaria: poner en traen gastos e 
impuestos en su hogar; jugar ajedrez; backgamond; y ¿por qué no? con su exclusivo 
joystick disfrutar de los más fantásticos video juegos: guerra de las galaxias, invasores 
espaciales; etc. y todo lo que Ud. puede imaginar. 
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CONQUISTANDO LOS PROBLEMAS 
DE SAVE/LOAD 

Una de las dificultades de los 
ordenadores del tipo ZX 81 es su 
interface para grabadores a ca- 
sette. Algunos tienen problemas 
para grabar y otros para recupe¬ 
rar el programa. Algunas indica¬ 
ciones que se dan en esta nota 
pueden salvar los inconvenientes. 
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PROGRAMAS 


CONCURSO 


•Submarino. Carrera de caballos. 
Guillotina. Mosquitos. Adivinan¬ 
zas. Calendario. Alunizaje. Su¬ 
mas y diversiones para chicos. 
Biorritmos. Simón. Retorno del 
Jedi. Matemática Básica. Pacman. 
Gráficos 1. 

Páginas 6 a 11, 14 a 16,19 a 21, 

23 



Recibimos programas y premiamos con una computa¬ 
dora al mejor. Además, sorteos mensuales de cassettes 
con juegos y de becas para cursos de programación 
basic. Conozca las bases. 
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INTRODUCCION A LA 
COMPUTACION 


APRENDIENDO EL 
LENGUAJE DE 
MAQUINA 

Iniciamos una serie de artículos 
en los cuales explicaremos el 
funcionamiento interno de los mi- 
crocomputadores y cómo pro¬ 
gramar en lenguaje de máquina 
para luego encarar algunos pro¬ 
yectos electrónicos. 



Página 12 


Si para usted la informática es chino básico no se 
preocupe, porque nosotros le explicaremos de qué se 
trata en un curso que se inicia en este número. 

Página 22 


CONSULTAS Y SUGERENCIAS 

En esta sección atenderemos todas aquellas consul¬ 
tas y sugerencias que nuestros lectores deseen realizar. 
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EQUIPOS PARA 
INVESTIGACION 



LA FABRICACION LOCAL 
DE COMPUTADORES 
PROFESIONALES 


IBM Argentina y la Fa¬ 
cultad de Ingeniería de la 
Universidad Nacional de 
Buenos Aires suscribieron 
un acuerdo mediante el 
cual la empresa suminis¬ 
trará sin cargo a la casa de 
altos estudios dos siste¬ 
mas IBM S/1 para la ense¬ 
ñanza y la investigación 
en el área de control de 
procesos industriales, dis¬ 
ciplina que requiere profe¬ 
sionales adecuadamente 
preparados para satisfacer 
las necesidades de actua¬ 
lización y modernización 
de la industria nacional, 
con el fin de hacerla más 
eficiente y competitiva, y 
facilitar su mayor partici¬ 
pación en el mercado mun¬ 
dial. 

Uno de los sistemas se 
empleará en el Departa¬ 
mento de Ingeniería Quí¬ 
mica, que funciona en la 
Ciudad Universitaria, don¬ 
de será dedicado a la en¬ 
señanza del control de pro¬ 
cesos por computadoras, 
así como también a tareas 
de investigación en dicha 
área. El restante se insta¬ 
lará en el Departamento 
de Electrónica que funcio¬ 
na en el edificio de Paseo 
Colón, y se destinará a la 
enseñanza de control de 
procesos, de arquitectura 
de computadoras, y servi¬ 
rá además como apoyo a 
la investigación, desarro¬ 
llo de interfaces de control 
y comunicaciones entre 


procesadores de informa¬ 
ción. 

El convenio fue suscrip¬ 
to por el decano de la fa¬ 
cultad de Ingeniería, Julio 
Guibourg, y el gerente de 
Relaciones Externas de 
IBM Argentina, Carlos 
Sanjurjo, durante una ce¬ 
remonia en la que se des¬ 
tacó la importancia de una 
estrecha relación entre la 
universidad y las empre¬ 
sas, tendiente al logro de 
alta calidad en la capaci¬ 
tación de profesionales. 

Cabe recordar que hace 
unos cuatro años la Uni¬ 
versidad Nacional de Bue¬ 
nos Aires y la compañía 
IBM firmaron otro acuerdo 
para el desarrollo de una 
entidad académica desti¬ 
nada a entrenar profesio¬ 
nales de nuestro país en 
técnicas avanzadas de in¬ 
formática, con aplicacio¬ 
nes en áreas de interés 
nacional. Esa iniciativa se 
cristalizó en el Centro de 
Tecnología y Ciencias de 
Sistemas de la Universi¬ 
dad de Buenos Aires 
(CTCS), en el edificio de 
Arenales 1371, de Capital. 
Se creó teniendo en cuen¬ 
ta que existe una deman¬ 
da en continuo crecimien¬ 
to de aplicaciones avanza¬ 
das de procesamiento de 
datos. Pero es aún insufi¬ 
ciente la cantidad de pro¬ 
fesionales de que se dis¬ 
pone para satisfacer esos 
requerimientos. 


Texas Instruments Ar¬ 
gentina continuará este 
año elevando el nivel de 
integración nacional —has¬ 
ta pasar el 50 por ciento— 
del Computador Profesio¬ 
nal TI, que la empresa pro¬ 
duce en el país desde el 
año pasado. Ya cuentan 
con unos 30 proveedores 
locales, que suministran 
desde los elementos más 
simples de embalaje hasta 
partes electrónicas. Muy 
pronto piensan incorporar 
un monitor fabricado en la 
Argentina. 

Otro objetivo de la com¬ 
pañía es mantener el lide¬ 
razgo en las ventas en el 
campo de los computado¬ 
res personales. 

El Computador Profe- 


A mediados de este año 
comenzará sus activida¬ 
des la moderna planta in¬ 
dustrial que está constru¬ 
yendo Epson en la provin¬ 
cia de Catamarca, y en la 
cual fabricará impresoras 
y computadoras de esa 
marca. Se producirán las 
computadoras QX-10 y, 
posteriormente la QX-16 y 
el equipo portátil PX-8, 
además de las impresoras. 
Epson Argentina se hará 
cargo del corrtrol, asesora- 
miento y apoyo, de mane¬ 
ra que los productostermi- 
nados en el país gocen de 
la altísima confiabilidad 
que caracteriza a esa 
compañía en el mundo. 


sional TI es un avanzado 
equipo orientado a la pe¬ 
queña y mediana empre¬ 
sa, así como al directivo 
que necesita contar con 
información inmediata pa¬ 
ra la toma de decisiones. 
Además cubre las necesi¬ 
dades del empleado ad¬ 
ministrativo especializado 
en diversas actividades. 
Por sus características, 
constituye una valiosa he¬ 
rramienta para los profe¬ 
sionales independientes 
que requieren desarrollar 
sistemas de información, 
cálculos avanzados, pla¬ 
neamiento financiero, gra- 
ficación, evaluaciones es¬ 
tadísticas. sistemas de ar¬ 
chivo y transmisión de da¬ 
tos y procesamiento de la 
voz humana. 


El objetivo de Epson es 
crear un complejo indus¬ 
trial latinoamericano, que 
incluirá la planta que se 
está instalando en Méjico, 
las que se concretarán en 
Argentina, Chile y Colom¬ 
bia, y eventualmente la de 
Brasil, las cuales podrán 
intercambiar y comple- 
meatar sus producciones 
dentro del marco de la ALA- 
DI. Los programas y sis¬ 
temas operativos en cas¬ 
tellano permitirán abaste- 
cera todos los usuarios de 
Latinoamérica y España. 

Representada en la Ar¬ 
gentina por Tecnobeton, 
Epson es una de las em¬ 
presas más grandes del 



MODERNA 

PLANTA INDUSTRIAL 


Kfrt 


Pag. 2 

























grupo Seiko, del Japón. 
Este último está constitui¬ 
do por un complejo de 
compañías especializa¬ 
das en relojería, mecanis¬ 
mos de precisión, informá¬ 
tica, ingeniería electróni¬ 
ca, comunicaciones y ro- 
botización. Se trata de la 
productora de relojes más 
grande del mundo. 

A su vez, Epson es la 
empresa más grande a ni¬ 
vel internacional en el 
campo de las impresoras 
para micro y minicompu¬ 
tadoras. El 50 por ciento 
de los equipos emplean, 
como periféricos de im¬ 
presión, en todo el mundo, 
productos Epson, mien¬ 
tras que el 90 por ciento 
ce las impresoras de otras 
marcas, calculadoras y ca- 
.as registradoras del pla¬ 
ceta llevan mecanismos 
ce impresión Epson. Pró- 
i mámente el grupo nipón 


ampliará el campo de utili¬ 
zación de sus impresoras, 
ya que sus nuevos produc¬ 
tos atenderán las exigen¬ 
cias de todas las computa¬ 
doras, cualquiera sea su 
dimensión y su potencia. 

La expansión de Epson 
se refleja en las siguien¬ 
tes cifras de producción 
mensual: 12 millones de 
mecanismos de impresión, 
10 mil computadoras por¬ 
tátiles, 7 mil computado¬ 
ras QX-10 y un millón de 
pantallas y visores LCD. 

Como dato original cabe 
consignar que se ha espe¬ 
cializado en computado¬ 
ras cada vez más podero¬ 
sas y pequeñas, como por 
ejemplo la incluida en un 
reloj de muñeca, modelo 
RC-20, con microprocesa¬ 
dor Z-80, 2 KRAM + 8 
KROM de memoria, co¬ 
mandos “touch”, y que 
también puede conectar¬ 
se a equipos mayores. 


CONGRESO Y EXPOSICION 
DE INFORMATICA 



Julio César Minuzzi 


Unos dos mil especialis¬ 
tas concurrirán al Tercer 
Congreso Nacional de In¬ 
formática y Teleinformáti¬ 
ca, y más de 80 mil perso¬ 
nas visitarán la muestra 
que se realizará paralela¬ 
mente, Expousuaria. Es¬ 
tos importantes eventos 
tendrán lugar en el hotel 
Sheraton, entre el 13 y el 
18 de mayo próximo. 

Destacados expertos 
extranjeros asistirán a la 
reunión de Usuaria’85, se¬ 
gún anticipó uno de los di¬ 
rectores del comité orga¬ 
nizador, el licenciado Julio 
César Minuzzi, quien tiene 
a su cargo la difusión del 
relevante acontecimiento. 

Uno de los temas que 
mayor interes desperta¬ 
rá es el del avance de ios 
robots, que ya “vienen 


marchando a pasos agi¬ 
gantados” sobre la Argen¬ 
tina, precisó Minuzzi. Ya 
hay varias industrias crio¬ 
llas que cuentan con ellos. 
También hay empresas 
que están trabajando en la 
instalación de esos equi¬ 
pos en nuestro país. En el 
caso particular de la com¬ 
pañía Proceda, ha puesto 
en marcha el control nu¬ 
mérico, que es una de las 
partes de la primera etapa 
de la robótica, y se está 
trabajando en el desarro¬ 
llo de “soft” para tal fin. Ya 
hay una gran cantidad de 
firmas que cuentan con 
control numérico, como 
por ejemplo en el sector 
de la industria de las he¬ 
rramientas. 

Con relación a Expo¬ 
usuaria ’85, Minuzzi recor¬ 
dó que el año pasado con¬ 
currieron a visitarla ochen¬ 
ta mil personas, y en la pró¬ 
xima muestra estiman que 
ese número va a ser supe¬ 
rado ampliamente, debido 
a que vá a haber presenta¬ 
ciones de nuevos produc¬ 
tos. En la anterior exposi¬ 
ción se registró la presen¬ 
cia de muchos estudian¬ 
tes. Ahora se buscará or¬ 
denar la asistencia de los 
jóvenes, de manera de de¬ 
dicarles especialmente la 
mañana. 



Expousuaria 
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CONQUISTANDO LOS 
PROBLEMAS DE SAVE / LOAD 


PRIMER PASO: 

Asegúrese que los conectores de 
su grabador (jacks) sean compati¬ 
bles con el ordenador, o sea los de 
3.5 mm; además deben estar co¬ 
nectados en forma segura. Algu¬ 
nos hacen contacto sólo si luego 
de enchufarlos hasta el fondo, se 
los retira un poco hacia afuera, de¬ 
bido a la no total compatibilidad en 
el largo del plug. 

Se necesita por lo menos un volu¬ 
men de sonido entre 4 y 6 voltios 
de pico. Si el grabador tiene salida 
de tipo DIN es muy probable que 
no sirva. Este es el caso de algu¬ 
nos grabadores europeos y de los 
decks. Para ello es necesario in¬ 
tercalar entre el grabador y el or¬ 
denador, un pequeño amplifica¬ 
dor/conformador. 

A veces el causante de los proble¬ 
mas es el Pack de ampliación; por 
recalentamiento; algún chip de 
memoria fallado; o por los contac¬ 
tos de conexión oxidados. 

Para el caso de sobrecalenta¬ 
miento, existen algunas solucio¬ 
nes para aquellos que se animan a 
“desarmar”. 

1 - Colocar un disipador de mayor 
superficie al estabilizador de co¬ 
rriente y al ULA. 

2-Cambiar la fuente de alimen¬ 
tación por una mayor capacidad 
de corriente y con un estabilizador 
que baje la tensión a 8 voltios. 


Otros consejos 
generales son: 

1- No mueva el ordenador mien¬ 
tras está cargando. 

2- Trate diferentes posiciones en 
el control de volumen al cargar, y 
mantenga el control de tono al 
máximo de agudos y mínimo de 
graves. 

3- Verifique que la grabación no 
tiene ruidos de fondo o zumbidos. 

4- Use buenas cintas para grabar, 
ya existen a la venta especiales 
para esta aplicación. 

5- Limpie a menudo los cabezales 
y la ruedita de goma con un paño 
suave o hisopo humedecido en 
alcohol o tetracloruro de carbono. 

6- Si dispone de un desmagnetiza- 
dor, úselo de vez en cuando. 

7- Si el grabador anda a pilas, in¬ 
tente de ese modo, tal vez se re¬ 
duzcan los zumbidos. 
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8- Recuerde de no dejar conecta¬ 
dos a la vez en el grabador, ambos 
plugs de EAR y MIC. 

9- Al “savear”, realice varias copias, 
ya que si no carga una, puede se¬ 
guir probando con la siguiente. 

10- Al regrabar mucho una porción 
o una cassette, trae problemas de 
ruido de fondo. 

11- Existen ciertas marcas y mo¬ 
delos de grabadores que sencilla¬ 
mente es imposible que funcionen 
con estas máquinas. 

12- Haga cambiar y/o alinear el ca¬ 
bezal de grabación. 

13- Si usa un grabador estéreo, 
use el canal izquierdo preferente¬ 
mente. 

14- Instale un filtro electrónico, que 
entre otras ventajas permiten co¬ 
piar simultáneamente en otro gra¬ 
bador. 


AJUSTE DE AZIMUT: 

Es tal vez la mejor solución y la 
primera a intentar. Hemos compro¬ 
bado que aún ni un grabador recién 
comprado viene con el cabezal 
perfectamente ajustado. El proce¬ 
dimiento es sencillo y lo puede 
realizarcualquieracon un poco de 
cuidado. Se trata sólo de alinear 
perpendicularmente la ranura del 
cabezal con el eje de la cinta. 

En la mayoría de los grabadores el 
cabezal está montado sobre dos 
tornillos; uno fijo y el otro móvil, 
con un resorte de presión. Ajus¬ 
tando este último, puede mejo¬ 
rarse el sonido de manera óptima. 
En algunos modelos se accede a 
este tornillo a través de un peque¬ 
ño agujerito encima del cabezal, 
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Una de las dificultades de los ordenadores del tipo ZX 81, es su interface para 
grabadores a cassette. Mientras algunos poseedores tienen problemas en grabar 
algo en su grabador, la mayor dificultad reside en tratar de recuperar “eso” como 
algo coherente, un programa... Algunas de las indicaciones que daremos aquí, tal vez 
no sea la más adecuada, para su caso en particular, pero leyendo todas estas recetas 
seguramente se le ocurrirá algo que no había intentado antes. 


si no deberá realizarlo con alguna 
herramienta de modo que puede 
pasar un destornillador del tipo de 
relojero. 

Una vez localizado, ponga una 
cassette conteniendo un progra¬ 
ma bien grabado, una cassette de 
ajuste de azimut, o simplemente 
ese programa “maldito” que no 
quiere entrar. Los controles de to¬ 
no del grabador deberán estarcon 
los agudos al máximo y graves al 
mínimo. A continuación mueva el 
tornillo móvil lentamente en am¬ 
bas direcciones hasta lograr el so¬ 
nido más agudo posible. Ese es el 
punto óptimo. 

Acontinuación publicamos un sen¬ 
cillo circuito para quienes quieran 
usar un deck de cassette, para 
adaptarlo convenientemente. 

Esperamos que estos consejos les 
hayan sido útiles, y quedamos dis¬ 
puestos para cualquier tipo de con¬ 
sulta técnica sobre el tema. 



Partícipe de la era 
de la informática. 


Si usted está pensando en adquirir un sistema de com¬ 
putación para su empresa o comercio, o tal vez en “algo” 
para su hogar, le invitamos a que nos conozca. 

_ Somos una empresa dedicada a la comercialización 

de equipos, sistemas y accesorios para computación. Todo esto respaldado por profesionales en informática 
e ingeniería para ofrecerle así todo el apoyo que necesite. 

Nuestros motivos son sus problemas operativos y sus inquietudes sobre computación; nuestro fin, solucio¬ 
nárselos; nuestra preocupación, usted. Sí, porque tanto usted como nosotros, nos encontramos en un mundo 
vertiginoso, donde cada minuto cuenta, importa y cuesta dinero. Por eso proponemos soluciones acordes a este 
tiempo, con el más alto nivel profesional y responsabilidad comercial. 

Tenemos equipos para cada necesidad; desde el más completo sistema profesional, hasta el más simple or¬ 
denador para uso personal o didáctico. Y para después, o si ya posee uno, una completa gama de accesorios para 
todas las marcas y modelos. 

Acérquese a nosotros, plantéenos su inquietud sobre este tema y compruebe que nuestra mayor preocupación 
es USTED. 



Distribuidor Autorizado 
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PROGRAMAS 


SUBMARINO 


Comp.: TS 1000 
Conf.: 2 K 

Cías.: ENT. 

Usted está a bordo de un buque de guerra y deberá 
destruir un submarino enemigo. Para dejar caer las 
bombas utilice la tecla 0. 



N 


1 Htf-1 *** K &i *** 

2 REM * SÜBMRRINO * 

3 REM ************* 

3 RRND 

10 LET SC =NOT PI 
20 LET L=IMT PI 
4-0 LET DF = NQT PI 
45 LET S = INT (RND*13) +7 
50 LET D=INT PI-SGN PI 
50 FOR ñ =27 Tu NOT PI STEF' 
PI 


-SG 


65 PR INT fiT SGN PI.7; k 

fiT I NT PI - 5 G N PI , 6 : : • 

70 PRINT RT S , fi . b&b " 

75 IF INKEY$=“0" THEN LET 
80 IF DF = 5GN PI THEN GOTO 
85 NEXT fi 
90 GOTO 200 
180 PRINT RT D .10; " " 

110 LET D=D+SGN PI 
120 PRINT fiT D . 10: "O" 

125 IF D =3 RND fi + INT PI-SGN 
10 THEN GOTO 400 


DF = 1 
100 


PI: 


130 

IF D > S THEN GOTO 

300 

140 

GOTO 85 


230 

LET . L =L-SGN PI 


205 

LET DF =NOT PI 


210 

CLS 


220 

IF L >NOT PI THEN 

GOTO 45 

230 

PRINT fiT 11,11;" 

GfiME OUER“ 

240 

PRINT fiT 12,11;" 

SCORE: ”;S 

250 

PAUSE 4E4 


260 

CLS 


278 

RUN 


300 

LET DF =N0T PI 


305 

PRINT fiT D,10;" 

" 

310 

LET D =NOT PI 


320 

GOTO 85 


410 

LET SC =30+SGN PI 


420 

L- L 


430 

GOTO 20 


440 

SfiUE "SUBMfiRINg” 


450 

RUN 



PANTALLA 



CARRERA DE CABALLOS 

La carrera larga automáticamente... Elija el caballo y 
empiece a apostar. 

Comp.: TS 1000 

PANTALLA Conf - : 2 K 


Cías.: 


ENT. 



1 REM ******* K. 64 * + * * * *■ * 

2 REM *CRRREPfi DE CfiBfiLLOS* 

5 PRINT fi i 8 .. 0 ; " —LfiRGfiDfi — " ; fiT 

20,0.; "-LLEGADA-" 

8 PRINT fiT 0,17; 


10 

LET 

fi =2 

15 

LET 

B = 1 

20 

LET 

0=2 

25 

LET 

D =3 

30 

LET 

E =2 

35 

LET 

F =5 

40 

LET 

G =2 

45 

LET 

H = 7 

50 

LET 

Z = 19 

55 

PRINT fiT 


; fiT E , F ; ' 

60 LET 


fiT C , D : 


65 

70 

75 

80 


IF 

IF 

IF 

IF 


31 FOR N = 1 TO 
82 NEXT N 


; fiT G , H ; " " 

=INT (RND*5) 

1 THEN LET fi=fi + l 

2 THEN LET C=C+1 

3 THEN LET E=E+1 

4 THEN LET G=G+1 
10 


85 

PRINT 

fiT 

fi B .; g 

".; fiT C,D.;"§" 


90 

PRINT 

fiT 

.E,F; 

■;fiT G,H;"S" 



97 IF fi=Z OR O 

p,THEN PRINT ñT 11 

*98 IF fi=Z OR 
THEN GOTO 105 
100 GOTO 55 

105 PAUSE 4E4 

106 CLS 

107 GOTO 0 

110 SfiUE "CfiRRERgr 


OR 

15 


E =Z OR G=Z 
"A*GfiN.' DOOO 


C=Z OR t=L OR G=Z 


120 RUN 
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GUILLOTINA 


Comp.: TS 1000 
Conf.: 2 K 

Cías.: ENT. 


MOSQUITOS 


Comp.: TS 1000 
Conf.: 2 K 

Cías.: ENT. 


El juego consiste en adivinar un número menor o 
igual a 100. Ud. cuenta con seis oportunidades. 


El juego consiste en matar a todos los mosquitos (*) 
y luego ira la cama. Utilice teclas 5,6,7 y 8 según el 
sentido de las flechas. 



1 REM *** K 64 ttí 

2 REM ^GUILLOTINO* 

3 RfiND 

5 LET 1=1 = 1 NT (RND*100) +1 
10 FOR F=R/R TO 12 
15 PRINT 9 B" 

20 NEXT F 


25 

26 
27 
30 
35 
40 
45 
50 
55 
60 
65 
70 
75 
80 
81 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

FOR F: 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 



82 FP.INT RT i¿,18: “t-íDIU. UN NUM 
ERO < = 100“ 

83 PRINT TfiB 12;"(6 GPORTUNIDR 
DES) “ 

85 IF F>fi-fl THEN GOTO 125 
30 PRINT fiT 10,5;“-“ 

100 INPUT G 

105 IF fi=G THEN GOTO 150 
110 LET fl$=“MfiYOR" 

115 IF G;-fi THEN LET fi$ = "MENOR" 
120 PRINT TñB 12; fiS 
125 NEXT F 

130 PRINT fiT 11.2:"*-" 

135 FOR F=fi/fi TO 23 
140 PRINT fiT 13,F;" O" 

145 NEXT F 

150 PRINT fiT 11.23;fi 
155 INPUT fi$ 

160 CLS 

161 RUN 

165 SfiUE "GUILLOTINE" 

170 RUN 


■]_ 

REM ** K 64 ** MOSO 

U IT 0 * * 

1— •' 

PRINT fifiY QUE MfiTfiR fi TODO 

8 LOS 

MOSQUITOS., Y LUEGO 

IR H L. H 

Cfif-lñ 

11 


■_í 

PAUSE 200 


•4- 

i_ w 


K 

LET U =1 


"7 

PRINT TñB 25;"BZZ" 


10 

LET S=0 


20 

PRINT fiT 10,21;" I iwaata" 

30 

FOR I=U TO 31 


40 

LET X = INT ÍRND+18) 


50 

LET Y = INT ÍRND+18) 


60 

PRINT fiT X,Y.;"*" 


70. 

NEXT I 


80 

PRINT fiT X Y ; " " 


30 

IF INKEY$ = "5“ THEN 

LET Y =Y- 

U 



100 

IF INKEY$=“6" THEN 

LET X=X+ 

U 



110 

IF INKEY$=“7" THEN 

LET X =X- 

U 



120 

IF INKEY$=“8“ THEN 

LET Y =Y + 

U 



130 

PRINT fiT X,Y;"0“ 


140 

LET 5=5+0.15 


ISO 

IF X=10 fiND Y=21 THEN GOTO 

170 



160 

GOTO 80 


170 

PRINT fiT 20,12; .BUENAS NO 

CHES 1 

:i i: 


180 

PRINT fiT 21,13; "TIEMPO = “jS 

130 

PAUSE 4E4 


200 

CLS 


210 

RUN 


220 

SfiUE "MOSOUITS" 


225 

RfiND 


230 

RUN 




• 


BZZ 

* 

ir 

* 

* * 

ir 


0? ir 

★ 

ir ir 


* 

i * 



£ $ 



* * 
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PROGRAMAS 


CALENDARIO 


Comp.: TS 1000 
Conf.: 16 K 

Cías.: ENT 


Este programa calcula el día de la semana de una 
fecha cualquiera (>1900).- Sólo hay que entrar los 
datos en forma correcta. 



1 RE ¡i 

2 REf-1 

3 REM 
i LET 

2© LET 
üUEUES 

i© PRINT THB 8. 

5© PRINT THE S 
6© PRINT THB 8 
7© PRINT HT 5 
OS i DDMMAAAA ) " 

80 INPUT 0$ 

LET D =UHL 
LET M=UHL 
LET fi=UHL 
LET R=UAL 
PRINT 

IF D >31 OR M>12 OR 
M =2 AND D >29 THEN 


4-ütt* K 64 ****** 

ttttfíttifttiíítiít 

S$ = "LUNES 
IERNESSfi 


, 0 , 



90 

91 
9 i 

103 
133 
140 
: 1 OR 


0$ i 1 
Ús í 3 
0$ (5 
0$ (7 


TO 

TO 

TO 

TO 


MIERC 


HT 


2 ) 

4 i 

8 ) 

8 ) 

D<1 OR M 
GOTO 163 


153 GOTO 203 

160 PRINT ' BDHTOS INO0RRECT0S, 
POR FAUOR, CORRIüHLOSl 
170 PAUSÉ 230 
183 CLS 
190 GOTO 20 
231 LET C=P/4 
213 LET 01=INT C 
cc0 LfcT U — U — L-1 
230 IF 0=0 THEN LET 0=1 
240 LET A1=R-1 
253 LET A2 =H1*365.25 
260 LET M =M-1 
273 LET F = 28 


233 

IF 

0 = 1 

THEN 

LET 

F =29 

290 

IF 

M =3 

THEN 

LET 

H =3 

303 

IF 

M = 1 

THEN 

LET 

H =31 

310 

IF 

M =2 

THEN 

LET 

H =31+F 

320 

IF 

M = 3 

THEN 

LET 

H =62 +F 

330 

IF 

M =4 

THEN 

LET 

H =92 +F 

340 

IF 

M =5 

THEN 

LET 

H=123+F 

353 

IF 

M =6 

THEN 

LET 

H=153+F 

363 

IF 

>1=7 

THEN 

LET 

H=184+F 

370 

IF 

M =8 

THEN 

LET 

H =215 + F 

383 

IF 

M=3 

THEN 

LET 

H =245 + F 

390 

IF 

M = 13 THEN 

1 LET 

' H =276 + F 

430 

IF 

M=ll THEN 

¡ LET 

' H =306 +F 

410 

IF 

M = l; 

2 THEN 

1 LET 

' H=337+F 


423 

433 

443 

453 

463 

470 

480 

493 


LET 

LET 

LET 

LET 

LET 

LET 

LET 


T=H2+D+H 
T1 =T / 7 
T2 = INT TI 
T 3 =T 1 -T 2 
T 4 = I NT íT3* 

T 4 =T 4 + 1 
K$=S*(T4*7-6 


:■$ t 

IF T4=6 OR T4=7 THEN LET 0$ 


TO T 4 * 7 j 


533 PRINT D;"/";M+l; 

ks+c$ 

510 INPUT P$ 

523 CLS 
530 GOTO 23 
543 SAUE "CHS" 

550 RUN 


ADIVINANZA 


Comp.: TS 1000 
Conf.: 2 K 
Cías.: ENT. 


Su computadora pensará una letra del abecedario y 
Ud. deberá adivinarla. 


1 REH 
5 RAND 
13 PRIr-r 


***** K 64 ***** 

HT 4,4; ! 



: ’R INT 
LET 5=1 

LET A = INT (RND*26) +38 
LET fl $ =CHR % ÍR'S 
PRINT 

PRINT "HDIUINH QUE LETRH 
? ffi-Z) “ 

PRINT 
INPUT L$ 

143 IF L$=A$ THEN GOTO 175 

145 IF S =8 THEN PRINT 

146 IF 8=8 THEN PRINT " 

SOS UN PLOMO. 

147 IF S =8 THEN GOTO 353 

L$ >fi* THEN PRINT ..; 

ES POSTERIOR” 

L$ H$ THEN PRINT .'"i 

ES ANTERIOR” 

L $ < > A $ THEN LET 3=5 + 1 

GOTO 130 
PRINT 

SCORE = "; 


PE 


153 IF 

: i ti 11 . 

160 IF 


IF 


L$ 

L$ 


185 
170 
175 
178 PRINT ” 

177 PRINT 

193 IF 5>3 THEN 

STANTE FLOJON. 

200 IF S <=3 THEN 
”"BRAVISIMO. 


O 


PRINT 1 
PRINT 


”BA 


210 

IF S = 1 THEN PRINT “ 

SOS 

UN GENIO. 


350 

PRINT 


360 

PRINT " OUERES 
,-e¡ n: ¡ ■■ 

SEGUIR JUGAND 

370 

INPUT DS 


380 

IF D$="3” THEN 

GOTO 500 

390 

PRINT 


410 

PRINT " TE 

ACHICASTE..7 

420 

STOP 


500 

CLS 


510 

RUN 


600 

SAUE ”LETRAg" 


601 

RUN 



PANTALLA 




D IU I NA 117A DE LETRA 

EB 

PIO X 

I 1 TM 
V Í.IN: 

A QUE LETRR PENSE 

? (A-Z) 

" E " 

■? 

ES ANTERIOR 


"L'* 

7 

ES ANTERIOR 


' 1 M * 1 


ES ANTERIOR 


*• B " 

7 

ES ANTERIOR 


''A" 

7 

ES ANTERIOR 


"X” 

*7 

ES POSTERIOR 


"R" 

7 

ES POSTERIOR 




"SOS UN PLOMO" 


QUE 

RES 

SEGUIR JUGANDO? 

<g/X> 
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SUMAS Y 
DIVERSIONES 
PARA CHICOS 

Este programa escrito para los ordenadores 
compatibles con el ZX 81, ocupa algo más de 14,5 
KB de memoria por lo que será necesario disponer 
de la expansión correspondiente. Pensado para 
chicos de 5 a 6 años, el programa comprende una 
mezcla de simples tareas aritméticas y sencillos 
juegos; la secuencia de los mismos es aleatoria. De 
esta manera se logra interés y variedad ayudando al 
niño a aprender y retener su atención durante un 
tiempo razonable. Una vez arrancado el programa, 
será saludado por un amable ¡Hola, mi nombre es 
Sinclair, cuál es tu nombre? al que una vez 
respondidoseledirigirásiempre.EI programasigue 
luego con una serie de simples pruebas y cuentas 
que serán recompensadas con juegos si se 
resuelven bien. Los ejercicios constan en comparar 
series de números en mayores y menores; sumas y 
restas simples, etc. Cuando luego de varios 
intentos, el alumno no acierta, el ordenador termina 
por mostrar la respuesta correcta. Luego de cada 
entrada de un número (excepto en los juegos), debe 
pulsarse NEW LINE (ENTER). También hay un par 
de subrutinas que producen lindos efectos en la 
pantalla. Dibujan flores, espirales y círculos. 


Además hasta crean efectos con el nombre. Los 
juegos son un tanto sencillos, pero ofrecen un 
“descanso” al trabajo con los números. Algunos se 
ofrecen como recompensa y otros aparecen 
aleatoriamente. Existe, sin embargo, una tendencia 
a las sumas, de manera que el alumno pase más 
tiempo trabajando que jugando. Los juegos 
incorporados son: uno que consiste en esquivar 
estrellas; otro en conducir un auto por una ruta sin 
chocar; y otro en el que hay que atajar las estrellas 
que caen. Todos tienen instrucciones y son fácil de 
usar. Existen también unos pequeños trucos 
gráficos que atraen la atención de los pequeños 
usuarios, como por ejemplo una cara que se pone 
triste o alegre en caso de que responda mal o bien 
a un problema. El programa corre a una velocidad 
lenta de modo que el niño no se sienta apurado, 
pero eso puede ser ajustado corrigiendo los bucles 
de espera FOR... NEXT. (Se prefirieron al PAUSE 
debido a que no producen parpadeo en la pantalla). 
Del mismo modo, las sumas se han acotado en su 
dificultad pero pueden complicarse extendiendo el 
rango de números aleatorios usados. Inicialmente 
es posible que el niño necesite una ayuda para 
comenzar a usarlo, pero seguramente enseguida 
se manejará solo debido a la gran receptividad a 
esa edad. Este programa presenta un completo 
paquete educativo para el pequeño usuario de un 
ordenador de este tipo, acompañado a su vez, de un 
poco de entretenimiento. 


Comp.: 

Conf.: 

Cías.: 


TS 1000 
16 K 
EDU 


************ 
EXAMEN PARA: 
***********" 


I31REM SOFTWARE 
“NT A 


_'PRINTAT 10,5, _ 

SHUMsT i AT 13,9; "LA PLATA" 

3 PAUSE 200 

4 CL5 

5 GOTO 9800 

10 REM TEST MAYOR + MENOR 
12 PRINT AT 8,5;"MAYORES Y MEN 
ORES" 

15 PRINT AT 9,5;"*#*********** 
* * * * " 

16 PRINT AT 10,5; 

*****" 

20 PRINT AT 14,5, 

A* 

25 PRINT AT 15,5, 

30 FOR 1=1 TO 200 
35 NEXT I 
40 CLS 
45 RAND 

50 LET X = INT (l+30*RNO:i 
55 LET Y = INT (1+30*RND) 

60 LET 2 = INT (1+30*RND) 

61 IF X =Y THEN GOTO 50 

62 IF X«Z TMEN GOTO 50 

63 IF Y=Z THEN GOTO 50 
65 LET P = INT (1 + 10*RND) 

70 IF P <6 THEN GOTO 150 

80 REM MAYORES 

81 REM ■■■■■ 

82 LET B =0 

85 PRINT TAB 3," ****** 

**" 

90 PRINT TAB 3,"CUAL ES EL MAY 
OR,";A $; "?" 

95 PRINT TAB 3," ****** 

* * " 

96 PRINT 



100 IF B<X THEN LET B=X 
110 IF B <Y THEN LET B=Y 
120 IF B < Z THEN LET B = Z 


125 INPUT B1 

140 IF B1=B THEN GOTO 9200 

145 GOSUB 9100 

146 GOTO 30 

150 REM MENORES 

151 REM ■■■■■■■ 

155 LET 5=31 


160 PRINT TAB 
** " 

165 PRINT TAB 


$, ' 

PRINT TAB 


OR , " 

170 
* * " 

175 PRINT 
180 PRINT 


"CUAL ES EL MEN 


185 PRINT 


19 

200 

205 

215 

220 

225 

230 

1000 

1001 

1003 

1009 

1010 

1015 

1016 
1020 
1026 
1030 
1035 
1040 
1045 
1050 
5 SU 
1060 
1065 
1070 
1075 
1030 




IF B TtiEN l_ET B = X 
Ir E ■ ■ THEN LET B=i 
IF B > Z THEN LET B = Z 
INPUT B1 

IF B1=6 THEN GOTO 9200 
GOSUB 9100 
GOTO 150 
REM 
REM 
PRIN' 

PRINT TAB 
PRINT TAB 
PRINT TAB 
PRINT TAB 
PRINT 
PRINT 
PRINT 

PRINT TAB 10,"AHORA 
PRINT 
PRINT 
PRINT TAB 
MAS" 

FOR 1=1 TO 200 
NEXT I 
CLS 
RAND 

LET X = TNT (1+20 *RN0 


************* 
SUMAS SIMPLES 
************* 

HBBB3H3H3B EH3 


"HAGAMOS ALGUNA 


1090 LET Y = INT Íi+20*RND) 
1100 LET A = INT (l + 10*RNOi 
1105 IF A<6 THEN GOTO 1360 

1110 REM ADICION 

1111 REM ■■■■i 
1115 LET T =0 
1120 FOR 1=1 TO 7 
1130 PRINT 

1140 NEXT I 

1150 PRINT ...... 


SO PRINT 


USE 

1170^PRINT TAB 

1130 PRINT 
1190 PRINT " Si 


INPUT 

LET T =T + 1 

IF T =4 THEN GOTO 1250 
CLS 

IF Z = X +Y THEN GOTO 
GOSUB 9100 
GOTO 1150 
PRINT 

PRINT "BUENO ",A$ 
PRINT "AHORA UOY A 


9200 


AYUDARTE 

12S0 PRINT "LA RESPUESTA ES ";X+ 

1290 PRINT " ****" 

U00 FOR 1 = 1 Tu 100 
1310 NEXT I 
1350 GOTO 9035 

1365 REM 

1370 IF -\ í^THE^GüTO 1070 

1330 LET T =0 

1390 FOR 1=1 TO 7 

1400 PRINT 

1410 NEXT I 

m,£EM 


1430 PRINT 
1.440 ^PR INT TAB 

1450 PRINT 
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PROGRAMAS 



146^RIN^'l 


1460 LET T =T +1 

1490 IF T =4 THEN GOTO 1530 

1495 CL5 

1500 XF Z=X-Y THEN GOTO 9200 
1510 GÜSUB 9100 
1520 GOTO 1420 
1530 PRINT 

1540 PRINT "BUENO "j A$ 

- RHORR TE UOY ñ RYUDR 


1550 PRINT 
R" 

1560 PRINT 

Y 


"Lñ RESPUESTA ES 


; x- 


I^^UAMÜS^^JUGAI 


R UN JUE 


1570 PRINT " 

1580 FOR 1=1 TO 100 
1585 NEXT I 
1590 GOTO 9035 

2000 REM - 

2001 REM 

2010 PRIN¬ 
GO ",flt 

2011 PRINT 

2012 PRINT 

2013 PRINT 

2014 PRINT 

2015 PRINT TfiB 

2016 PRINT TRB 

2017 PRINT TRB 

2018 PRINT 

2019 PRINT 

2020 PRINT 
RR TU ÑAUE 

2021 PRINT 

2022 PRINT 

2023 PRINT "EL JUEGO TERMINRRR S 
I ESTRELLAS TU ÑAUE" 

2024 PRINT "Y TE MOSTRARE TU PUN 
TAJE" 

2025 PRINT 

2026 PRINT 

2027 PRINT 
2030 PRINT 
UEGO " 

2040 FOR 1=1 TO 
2045 NEXT I 
2050 CLS 
2060 LET U=0 
2070 LET X=10 
2080 LET Y=15 
2090 LET Z=20 
2100 PRINT RT Z,RND*30;"*" 

2110 PRINT AT X, Y; " 

2120-LET U=U + 1 
2130 SCROLL 

2140 IF Y>2 THEN LET Y=Y-1 
2150 IF INKEY$="M" AND Y<2S THEN 
LET Y =Y + 2 

2160 PRINT RT X,Y; " "U* " 

2170 PRINT RT 11/Y + l; 

2180 IF PEEK (PEEK 16398+256*PEE 

K 16399)023 THEN GOTO 2100 

2190 PRINT U 

2200 FOR 1=1 TO 35 

2205 NEXT I 

2210 CLS 

2220 PRINT 

2221 PRINT 

2222 PRINT 

2223 PRINT 

2225 IF U >50 THEN GOTO 2230 
2230 PRINT "NO TE ENOJES ";Aí 
'TU PUNTAJE ES. . "J U 


APRIETA""M""PARA GUI 

espacia^;; 


"RAPIDO-COMIENZA EL J 
120 


"TE DIUIERTES?" 
"AHORA,HAGAMOS ALGO M 


2231 PRINT 
2235 PRINT 
2240 PRINT 
2245 PRINT 
2250 PRINT 
AS " 

2260 FOR 1=1 TO 45 
2265 NEXT I 
2270 GOTO 9035 
2280 IF U > 300 THEN GOTO 2296 
2290 PRINT "MUY BIEN, 

2295 GOTO 2231 

2296 PRINT "MUY BIEN 


2¿93 


; A* 

, DE UERDAD, 


GOTO 2231 
- - --TI 


3000 REM F 

3001 REM _ 

3010 PRINt TAB 4;"TIEMPO DE DIUE 
RTIRSE " 

3015 PRINT TAB 4;"************** 
******" 

3016 PRINT TAB 4;"************** 
******" 

3020 PRINT 

3021 PRINT 

3022 PRINT 
3030 PRINT 
3035 PRINT 
3040 PRINT 
A" 

3045 PRINT 

3050 PRINT "FIGURA PARA UOS" 

3055 FOR 1=1 TO 80 
3058 NEXT I 
3060 CLS 
3065 RAND 

3070 LET A = INT C1 + 10*RND) 

3080 IF A<4 THEN GOTO 32O0 
3090 IF A>6 THEN GOTO 3400 
~~ ' >IDA FIGURA 


'AHORA OBSERUAME ";h$ 
'TE DIBUJARE UNA LIND 


3100 REM 
3105 REM 


3110 FOR X = 1 
3120 


100 

LET Y=PI*X/50 
3130 PRINT AT 9*C0S 
N ÍY)+15;"B" 

3140 NEXT X 


(Y)+10,14*51 


32 

32 


3150 FOR 1=1 TO 15 
3155 NEXT I 
3160 GOTO 3300 
3200 REM FLORES+ESPIRALES 
REM 

3202 LET A = INT Í1+10*RND) 

3205 IF A>5 THEN GOTO 3260 

3210 REM LINDAS FLORES 

3211 REM 

3215 FOR 5=0 TO 200 STEP 3 
3220 LET T=S*P1/180 
3225 LET F=23*SIN (5*T) 

3230 LET P=30+F*CO5 T 
3235 LET Ü=20+F*SIN T 
3240 PLOT P ■ Q 
3245 NEXT-5 

3250 FOR 1=1 TO 15 
3253 NEXT I 

3255 GOTO 3300 
3260 REM ESPIRAL 

3251 REM HÉHÍHH 

3265 FOR 5=0 TO 1300 STEP 8 
^70 LET T=S*P1/130 
LET F = 1.1*T 
3280 LET P =30 +F *005 T 
3285 LET ü=20+F*SIN T 
3290 PLOT P,0 

3295 NEXT 5 

3296 FOR 1=1 TO 15 
3298 NEXT I 

3300 CLS 

3310 PRINT AT 8,5, "AHORA ",;A$ 
3320 PRINT AT 10,5;"CONTINUEMOS 
HACIENDO COSAS" 

3325 FOR 1=1 Tu 35 

3328 NEXT I 

3330 GOTO 9035 

3400 REM CIRCULOb 

3405 REM ■■■■■i 

3410 FOR J = 10 TO 2 STEP -1 

3415 LET O $ = CHR $ (INT (RND*11 + 12 

8* (RND <0.5) ) ) 

3420 FOR B =0 TO 360 STEP 10 
3430 LET G=B*P1/130 
3440 PRINT AT 10+J*COS G,15+J*SI 
N G; Q$ 

3450 NEXT B 

3460 NEXT J 

3470 FOR 1=1 TO 15 

3475 NEXT I 

34S0 GOTO 3300 

4000 REM CLASIFICA LOS NOS . 

REM 

4005 PRINT TAB 4.i "************** 
*********" 

4010 PRINT TAB 4;"CLASIFICA ESTO 
S NUMEROS" 

4015 PRINT TAB 
*********" 

4020 FOR X=1 TO 5 
4025 PRINT 
4030 NEXT X 

4035 PRINT 
MEROS SOBRE 

4036 PRINT 

4040 PRINT 
LASIFICARLOS" 

4041 PRINT 
4045 PRINT 
MAYOR" 

4050 PRINT 
4055 PRINT 

4060 PRINT '51 TU RESPUESTA ES C 
ORRECTh" 

4070 PRINT 
4075 PRINT 
4080 PRINT 
4085 PRINT 
OS NUMEROS. 

4090 FOR 1=1 TQ 80 
4093 NEXT I 
4095 CLS 

41C0 REM ¿ELECCION DE 5 NUMEROS 

REM ■■■■■■■■■■■■■■ 

4105 RAND 
4110 DIM A(6) 

4115 FOR 1=1 TO 6 

4120 _ET A í I) = INT (1 +20*RND) 

4121 NEXT I 

4122 IF H (2) =A (1) THEN GOTO 4100 

4123 IF AC3)=AÍ2) OR A(3)=A(1) T 
HEN GOTO 4100 

4124 IF h(4)=A(3) OR A(4)=A(2) O 
R A (4) = H (1) THEN GOTO 4100 

4125 IF h( 5)=A(4) OR A (5) =A(3) O 
R A i 5 ‘ = A (2) OR A(5)=A(i:i THEN GO 
TO 4100 

4128 IF A ( 6) = A (5 ) OR A (6) =A (4) O 
R A(6) = A(3) OR A (6) = A (2) OR A (6) 
= A (1J THEN GOTO 4100 

4130 PRINT "AHORA " A $ 

4131 PRINT 

4135 PRINT "MIS NUMEROS SON. 


' ************** 


'CUANDO YO PONGA 


NU 


"LA PANTALLA, DEBES 


EN ORDEN,DE MENOR A 


TE REGALO UN JUEGO" 
AHORA UOY A ELEGIR L 


4140 PRINT 

4145 FOR 1=1 TO 6 

4150 PRINT A(I) ; " 

4155 NEXT I 
4158 LET C=0 

4160 REM H £ ARMA+ENTRA NUMEROS 
REM 

4165 PRINT 

4166 PRINT 

4170. PRINT "AHORA.ENTRA LOS NU ME 
ROS" 

4171 PRINT 

4175 PRINT "LOS MENORES PRIMERO, 
LOS MAYORES DESPUES" 

4177 PRINT 


4180 DIM B(6) 

4185 FOR 1=1 TO 6 
4190 INPUT Bm 

4195 PRINT 6(1) , ", 

4196 IF B(I) =A (1) OR B(I) =A (2) O 
R B (I) =A (3) OR B(I) =A (4) OR B(I) 
= A (5) OR B(I) =A (6) THEN GOTO 419 


4197 

4193 

4199 

4200 

4201 

4202 

4203 
4205 
4208 
15 

4210 

4215 

4220 

4225 

422b 

4230 

4231 

4232 

4250 

4251 
4255 
4260 
0 

4265 

4270 

4271 

4272 

4273 
4275 
A$; " 
4278 
4280 
UGAR 
428 1 
* * * * 
4285 
4 2 8 3 
4290 
4295 

4300 

4301 
4310 
4315 
4320 
4325 
4327 
4330 
4335 
4340 


GOTO 4500 
NEXT I 

FOR 1=1 TO 12 
NEXT I 

REM ZX ARMA LOS NUMEROS 

REM ■■■■■■■■■■■■■i 

LET K=0 
FOR 1=1 TO 5 

IF A (I) > A i I + 1) THEN GOTO 42 

GOTO 4230 
LET T=A (I) 

LET A(I)=H(I+1) 

LET A (1 + 1) =T 
LET K=K+1 
NEXT I 

IF K = 0 THEN GOTO 4250 
GOTO 4200 

REM COMPARA ZX+At ARMA 
REM 

FOR 1=1 TO 


IF A(I)OB(I¡ THEN GOTO 430 
NEXT I 

REM RESPUESTA CORRECTA 

REM ■■■■■■■ 

PRINT 

PRINT 

PRINT TAB 5,"***MUY BIEN "; 
* * * " 

PRINT 

PRI NT TA B 3:"AHORA PUEDES J 

UN mIhhw 

PRINT " ******************** 
********" 

FOR 1=1 Tu 35 

NEXT I 

CLS 

GOTO 8000 

REM RESPUESTAS INCORRECTAS 

REM ■■■■■■■■■■■■■■i 

LET C=C+1 


IF C =3 THEN GOTO 4400 
CLS 

PRINT "NO " ; A$ 

PRINT 

PRINT "NO ES CORRECTO" 
PRINT 

PRINT "TUS NUMEROS ERAN 


4345 PRINT 

4350 FOR 1=1 TO 6 

4355 PRINT B (I) ; " ", 

4360 NEXT I 

4365 PRINT 

4366 PRINT 

4370 PRINT "PROBEMOS DE NUEUO" 
4375 GOTu 4160 

4400 REM AYUDA 

4401 REM ■■■■ 

4405 CLS 

"BUENO ",A $ 

"UEü OUE NECESITAS AY 


4410 PRINT 
4415 PRINT 
UDA " 

4420 PRINT 

4421 PRINT 
4425 PRINT 


'TUS NUMEROS ERAN.... 


4430 

4435 

4440 

4445 

4450 

4451 
4455 
4460 

SER 

4465 

4470 

4475 

4480 

4485 

4486 

4489 

4490 

4491 
* * * * 

4492 

4493 

4494 

4495 

4497 

4498 

4499 

4500 

4501 
4510 

4520 
EN 

4521 
**** 
4525 
4530 
NUEU 
4540 
4545 
4550 
4560 
8000 
8001 
8005 


PRINT 

FOR 1=1 TO 
PRINT B(I) 
NEXT I 
PRINT 
PRINT 
PRINT 
PRINT 


DE MENOR A MAYOR" 

LOS NUMEROS DEBIERON 


PRINT 

FOR 1=1 TO ( 
PRINT A <I) ; ' 
NEXT I 
PRINT 


"AHORA Aí 
"BUSCA TUS ERRORES" 
******************** 


PRINT 
PRINT 
PRINT 
PRINT 
********" 

FOR 1=1 TO 75 
NEXT I 
PRINT 

FOR 1=1 TO 15 

NEXT I 

CLS 

GOTO 1000 

REM ENTRADA NO. INCORRECT O 

REM ■■■■■■■■■■■■■ 

PRINT 

PRINT "NUMERO FALSO-NO ESTA 
MI LISTA" 

P R I NT "******************** 
**+****+" 

PRINT 

_PRINT "UAMQ5 H COMENZAR DE 

"FOR 1=1 TO 35 
NEXT I 
CLS _ 

GOTO 4100 
REM JUEGOS-PREMIO 
REM 
RAND 
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8010 

LET G = INT í1 + 10*R NL ■ < 

„■ , * * 

V 4 4 4 4 , .. 




9 12:0 PPIN '■ 

SOIS 

IF G<4 THEN G 

¡OTO 04 00 

5G10 

pRim 

1 í L- 1 . 

,-i 1 i--'.-1¡ ; -; » ... 

, ¡ K 


8020 

IF G>7 THEN G 

OTO 8600 

F2L Lh 

PERD I! • 




9125 Ph' II í f 

8100 

REM AUTO DE C 

A R R E R H 

r. 

t ■ t ,' i •. , 

TnF- i." 

* >. 4 * 4 4 r . 

* * * * 


8101 




4 . . - * - i- 

* " 



9130 PRIHT 

8115 

PRINT TAB 6;" 

i.ii.V.'.V.ViV. 


T '.Ir- j - 

L T ¡ > 5 




V 




PRIlií 




9155 PRINT 

8120 

PRINT THE- 6. " 

AUTO DE ChRRER 

r-,. o 

NEXT I 




I 

A" 



r, -i c -. 

P PIN 1 

" HH . i ,i . 

m E:-T kELlH 

PtR 

y X •• Vi l-r' Il¡ i 

8130 

PRINT TAB 6, " 


DIDA 

Líi El." 




i 

.■ 



:-.r. .i. 2, 

PRINT 




.U-i Pr- liP; 

8131 

PRINT 


664 5 

PRINT 

L 1EL'- 1 . 

TRi-íTh Lt m 

f RhP 

i 

8132 

PRINT 


H r< L H 





5.60 PRINT 

8133 

PRINT 



PRINT 





8134 

PRINT 


, : .h c , r . 

PRINT 

APPIt T 

H 7 " " p'hn r-1 

IR 

9=56 PRINf 

8135 

PRINT "CORRE 

TU AUTO SOBRE 


T ‘ u, . - r 

H l ' H " 




LH PISTA" 







9160 PRINT 

8137 

PRINT 








8140 

PRINT "NO TOO 

¡UE5 LO3 BORDES 

•_o65 

PRINT 

riKKiti 

H' ' ?T" ‘ PHftH 

IR 

y ¿ c- 5 P R j. i í ¡ 


DEL CAMINO" 

514-5 PRIHT 

8150 PRINT "PORQUE EL -JUEGO 
INARA" 

8155 PRINT 

8156 PRINT 

8157 PRINT 

8158 PRINT 

8160 PRINT 'APRIETA""Z""PAPÉ 
A LA IZQUIERDA" 

8165 PRINT " ■ 


H LH DERECHA" 
6670^RINT| 

8675 PRINT 
5680 PRINT 
SEGUIDA" 


’ EL ■_ 
i Tü 


PRINT "APRIETA 

" "M" " PARi 

DERECHA" 

PFU^T " 

aa 

PRINT 

PRINT "EL JUEG 

o cumien. 

FOR 1=1 TO 50 
NEXT I 

C L 5 

LET U=10 

LET X = 10 

LET Y =20 

LET Z =9 

PRINT AT Y ,Z, " 


PRINT AT U.X," 
SCROLL 

IF INKEY' $ = " Z " 

THEN LET' 

IF INKEY $ = "M " 

THEN LET 


570G 

8706 


LET , -16 
POP R -- i TC 
LET 8 -• ÍMT 
r : c ; r . o T C 
IP ir iP Ei'$ = 

IP INKEY $ = 


..0 THEN LET 
,81 THEN LET 


8270. 

1 


3290 PRINT AT U,X, "Y" 

8300 IF Z <17 THEN LET Z=Z+2*RND 
8310 IF Z > 7 THEN LET Z=Z-2*RND 


8730 IF 
8735 IF 
874-0 CL 
8745 PRINT AT T 

J 

3750 
• + 1 

5 751 
: - c *. t 1 

6550 

6760 

6 6650 
5765 MEXT T 
6770 NEXT R 
6 7 75 F OP 1 = 1 
8-77-3 NEXT I 

30 CL: 


"Z" THEN LET 
"M" THEN LET 
0 


IF 

T =20 

AND 

IF 

T =20 

AND 

1F 

T =20 

ANO 

IF 

T =20 

AND 


8320 

PRINT AT 11,X; 


PRINT hT 8,0, T 

8330 

IF PEEK (PEEK 16396+PEEK 16 

679Ü 

PRINT AT 10,0. 

399 + ; 

256)=126 THEN GOTO 8350 

• . " E: 

:-T R E L h 6' 

8340 

UÜTU 8240 

7 -6 6 

PRINT AT 12.0. 

8350 

FOR 1=1 Tu 15 

5 al.-; 

MAS' 

8355 

NEXT I 

83 00 

P11 p y . i ¡ i. 

8360 

GOTO 9035 

650S . 

i.E-T 

8400 

REM CHRTc.L DE E5CRITOR 

o 

GOTO 9035 

8401 


6550 

FOR 1=1 Tü 10 

8403 


R . 

PRIHT AT 20... 


" «■ 

6660 

PRINT AT 20... 

8405 

PRINT TAB 6;"CARTEL DÉ ESUR 

8365 

ME XT I 


*",AT 20,Y,"L 
1 THEN LET X = 
,+l THEN LET 
{ THEN GÜSU6 
i+1 THEN GOSU 


’hHüPh HAREMO 


IT GR " 

6510 PRINT ThB 6;' 


70 RETURN 


8415 PRINT 
3416 PRIHT 
8417 PRINT 
8420 PRINT 
LET O " 

8425 PRINT 
6 4 8 0 PRINT 
RLÜ MARCHAR 
8435 PRINT 
8440 PRINT 
PANTALLA" 
8445 INPUT B$ 


ENTRA TU NOMBRE CQMP 
PORQUE YO UOY A HACE 
A TRACES DE TODA LA 


PEI-I IMTPüC-i. 
90O1 REM WtttKM 
9005 PRINT AT 8. 
E E5 SINCLAIR" 
9Ü06 PRINT AT y. 


m 


I IQ14 GENERAL 


"HOLA;MI NÜMBR 


j01 5 PRINT AT 
luTERE? " 

4016 PRINT AT 


CUAL E5 TU 


8455 PRINT AT 1,0," 

■M——ITMMTO 


k < ¡i a * ü i » ii :í i i i 

■ IIINIIIIIIII 

************* 

8456 PRINT AT 

V.VaV.V.WaV 

8457 PRINT Al 

...i, . 

■ * ■ II ■ ■ ■ 

' 5,0," 


9020 INPUT H $ 

9021 PRIHT 

9022 PRINT 

9023 PRINT 
9025 PRINT " + + 


9026 PRINT 

9027 PRINT 
DO" 

9026 PRINT 


H H U R H , .i H $ 
'HAGAMOS ALGC 


. A 


JMENZAM'O 


+ ■*****■*■**■*•* + *+■ + *-':* + 

3458 PRINT AT 16,0, 
t H í * #**** + * + ** + **■* 

8459 PRINT AT 18,0, . 

«VVV.VAV.V.VV.V.V.V 

8470 LET P = L E N 6$ 

3475 LET 0 = 1 
8480 IF C 531 THEN PF 
1-0 , B $ (1 TO C) 

8435 IF C > = 3 1 AND C < =LEN B $ 
P RINT AT 10,0,6$íC-3 O T O C 


9020 PPIin 


40 5 7 i; E *T 
C L5 
404O REM 

REM 


1=1 TO 35 

5 E L E C C IO N D E A CTIU ID A D E 


I NT AT 10, (3 
HEN 


904 

a. 

y045 r uR 

y049 RAI T L.-’ 
9050 LET 


=1 TO 10 

I 

= I NT 


8490 

IF C =LÉN B $ THEN LET B$=B$ 

9055 

IF H 

7 THEN GOíO 9090 

+" " 



9 0 A ü 

i H 

F> = INT - ■ 1 + 10 *RND' i 

3495 

IF LEN B$ = P-32 

i HEN GOTO 85 

9HP9 

1 f R 

7 THEN GOTO 2000 

10 



90 70 

¡ £ 1 

C = I NT' (1 + 10 *RND) 

3500 

LET C= C + 1 


90 7'=¡ 

t f r. 

-4 THEN GOTO 3000 

8505 

yijl 0 u4B0 



Ñi'iT M 

4000 

8510 

NEXT I 


9390 

i F*T 

D = I NT í 1 Kl0*RND.i 

8515 

FOR 8=1 TO lO 


C¡ 7; ■«= 

IF' D 


3520 

PRINT hT 10,12 

, ’EiaRBH 

:í 0 O f; 


i ü 8 Ü 

3525 

PRINT AT 10,12 

, "ADIü¡:' 

- ¡.iiC 

A’ S M 

R £• P.pl i-EP-f A NAL - DALA 

8530 

NEXT 5 


■ i . .. ; 

Kt. i i 


8535 

FOR 1=1 ¡u 30 


. ] c 



F. 3 

NEXT I 


. j 0 

í P ¡:. 

T 

8540 

GOTO 9035 


9 í 0 b 

P p ; ;. 

1 " f- i Pl " . ri p ' . PPl i F P¡ 

3600 

R61M ATRAPA LA 

ESTRELLA 

r. ute ■: 



8601 



9 116 

PR í', 

.T 4 .- v >, \ 

8605 

PRINT TAB I,"* 

*-****+:- i - r r 4 

, 

H 1 í 4 




a 

a 

u 

■ 

■1 ü 

o a 

ai 

■ 

i» 

a 

a 

a 

u 

■ 

a 

a 

UIIÍBíSmHW 


9170 FDR : 

91, -• Nt5XT 


3200 P.EM RE SF- 

3201 REM WSBM 


JE5TA BIEN DADH 


9202 

9205 


PRINT 

PRINT 


UNA ESTREl 


■: ; i 2 J O 

PRINT 

9215 

PRINT 

9220 

PR IMT 

9225 

PRINT 

9230 

PR INT 


PRINT 

*""" 


324 0 

PRINT 

■ " 

3245 

■ ' 

PR IMT' 

9250 

PRINT 

9255 

PRINT 

9260 

PRINT 

9265 

PRINT 

9270 

PRINT 


NEXT I 

FOR 1 = 


, H$, " , ERES 


IMHHHHHHBii 

a 


a 


- 

-a 

ai o 

0 

a 


11 

a 



a 

a 

I 

a 

■ i 

i 

a 

a m 

' v Sw 

a 

a 


a 

HnnHuwaHHffi 


90 

PRINT 


05 

PRINT 


06 

PRIN T 


10 

PRINT 


16 

PRINT " 

* * * 

20 

PRINT " 

* * * 

25 

PRINT " 

* * * 

30 

PRINT " 

*** 

35 

PRIN i. 

* •* * ****** 

40 

PRINT " 

«4 

45 

PRINT " 

* * * 

50 

PRINT " 

* * * 

55 

PRINT ” 

* * * 

60 

NE-T : 


RR 

•-“OTO 30 JE 


00 

Re 11 T IT ULOS 

DE PAGINA i 

VT; 

' ‘ ' 7 '• - i- 7 1 


i' 

í i E • T I 



opnpEHxp&i 

y 6 30 P RIN T V " 

9 31-6 PRINT* " 

9836 "PRINT* 
9340 PRINT " 
PARA CHICOS" 
9345 PRINT 
9870 PRINT " 


DIUER5IONES 





■, o ,; 

: ■ tí 11 


LÍSJ 
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EL LENGUAJE DE MAQUINA 


CONOCI 


■m 






E n estos artículos explicare¬ 
mos un poco el funciona¬ 
miento interno de las micro- 
computadoras y cómo programar 
el lenguaje de máquina para lue¬ 
go encarar algunos proyectos e- 
lectrónlcos. 

Nos centraremos en los micropro¬ 
cesadores de 8-Blt, especialmen¬ 
te en el Z-80 (Sinclair y similares) 
y el 6502 (Commodore, Apple, etc.). 
Un microprocesador es un bichito 
capaz de ejecutar una serle de ins¬ 
trucciones previamente almace¬ 
nadas en una memoria electróni¬ 
ca. Estas instrucciones son pare¬ 
cidas a las del BASIC que todos 
conocemos pero mucho menos 
poderosas. Por ejemplo nos mane¬ 
jaremos con números de 8-Bit que 
pueden tomar valores entre 0 y 
255 (decimal), claro que con varios 
de estos números formaremos nú¬ 
meros más grandes como los del 
BASIC, tampoco podremos multi¬ 
plicar directamente sino que de¬ 
bemos hacerlo con sumas sucesi¬ 
vas u otro método que se nos 
ocurra. 

Como ya dijimos un micro debe 
tenerconectado por lo menos me¬ 
moria donde tener el programa 
que se está ejecutando y además 
un circuito para saber qué letra se 
apretó en un teclado, otro que ge¬ 
nere una imagen de video que se 
pueda conectar a un TV y demás 
¡nterfases para grabador, disco, 
etc. 


La memoria la tenemos en dos 
tipos: 


-ROM (read only memory) que es 
memoria que sólo se puede escri¬ 
bir, en este tipo de memoria está 
normalmente el programa intér¬ 
prete que transforma las instruc¬ 
ciones de BASIC en instrucciones 
que entienda el micro. 

-RAM (random access memory) en 
la que se puede leer y almacenar 
datos o programas ya sean en len¬ 
guaje de máquina o BASIC. 

Los micros se conectan con los 




demás chips (como la memoria) 
mediante los llamados buses que 
son tres: 

-Bus de datos 
-bus de direcciones 
- bus de control 

Veamos un ejemplo: Cuando el 
micro escribe en una posición de 
memoria primero le dice “donde” a 
la memoria (la dirección) y luego le 
dice “que” quiere escribir(el dato). 
Como podrá adivinarse la direc¬ 
ción se la dice a través del bus 
de direcciones y el dato a través 
del bus de datos, faltaría decir que 
también le dijo a la memoria que 
quería “escribir” y no “leer” a tra¬ 
vés de un cable del bus de control. 
Ahora bien, cómo son los “buses”? 
El bus de datos está compuesto 
de 8 cables ordenados del bit me¬ 
nos significativo (LSB) al más sig¬ 
nificativo (MSB). El bus de direc¬ 
ciones está compuesto de 16 ca¬ 
bles ordenados por los cuales se 
puede transmitir un número de 0 a 
65535. El bus de control está for¬ 
mado por varias líneas con usos 
distintos,entre ellas la que ya co- 


,2Í 






n c> o o o q qcP' 
ODDDDDD 
on a a a na 
□ □a apoc 

C 




nocemos para decirle a la me¬ 
moria si se quiere leer o escribir, 
técnicamente conocida como 
R/W (read/write) y otras que ya co¬ 
noceremos (reloj, interrupts, reset, 
etc.). 

Ya dijimos que tenemos 65535 
posiciones de memoria posibles 
en lasque podemos escribir o leer 
un dato o byte que es un número 
entre 0 y 255; esto lo podemos ha¬ 
cer también desde el BASIC con 
las instrucciones PEEK y POKE. 
La instrucción PEEK sirve para 
leer una posición de memoria por 
ej.: 


R-PEEK (12000) 

lee en la variable A el contenido de 
la posición de memoria 12000 por 
supuesto que el número que nos 
devuelve estará comprendido en¬ 
tre 0 y 255. 


La instrucción: 

POKE 12000, 34 
cambiará el contenido de la posi¬ 
ción 12000 por 34. 

No siempre haremos algo útil con 
estas instrucciones porque no to- 
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dos los números de 0 a 65535 es¬ 
tán ocupados por memoria, para 
saberlo debemos fijarnos en el 
“mapa de memoria” de nuestra 
máquina que nos dice si hay y qué 


tipo de memoria hay en las distin¬ 
tas zonas de memoria, así como 
también qué se guarda habitual¬ 
mente en ellas. Por ej.: 


DIRECCION 

0 -> 

16384 _\ 


32768 


65535 


-> 


ZONA 

DE 

ROM 

En esta zona sólo podemos leer. 
Acá está el programa intérprete 
BASIC. 

ZONA 

Acá podemos leer y escribir y se 

DE 

guardan las variables, programas 

RAM 

BASIC, memoria de video, stack, 


etc. 

ZONA NO USADA 


ORAS 


grama seguramente estamos tra¬ 
tando de escribir en la ROM: 

10 PRINT PEEK (3472) 

20 POKE 3472,23 
30 PRINT PEEK (3472) 

) RUN 
47 

Al escribir en la zona de RAM pue¬ 
de llegar a estropearse algún pro¬ 
grama BASIC que tengamos car¬ 
gado en ese momento pero no 
trae ninguna otra consecuencia. 
Existe una zona de RAM conocida 
como memoria de video en la cual 
todo lo que esté escrito aparecerá 
en la pantalla en su equivalente de 
la tabla de caracteres de nuestra 
máquina, o (caso SI NCLAIR 2068) 
cada bit de cada byte de esa zona 
representará un punto en la pan¬ 
talla. Lea en el manual de su má¬ 
quina donde está esa zona y prue¬ 
be de hacer algunos POKEs por 
ahí. En el caso de la ZX81 la zona 
de video es más complicada; ya 
publicaremos un programa para 
escribir en esta zona. 

En general puede resultar intere¬ 
sante “mirar” las distintas zonas 
de memoria con un programa co¬ 
mo el siguiente sobre todo con 
algún programa cargado con algu¬ 
nos REM con mensajes y anotar 
en qué direcciones se guardan es¬ 
tos mensajes 


Al decir que en la ROM no pode¬ 
mos escribir no quiere decir que 
vamos a romper la máquina si lo in¬ 


tentamos sino que por más que lo 
intentemos no podremos hacerlo. 
Por ejemplo, con el siguiente pro¬ 


10 INPUT “DESDE: ”;D 

20 INPUT "HASTA: ”;H 

30 FOR l-D TO H 
40 PRINT CHR$ (PEEK (I)); 

50 NEXTI 

Existe mucha bibliografía sobre 
microprocesadores pero es muy 
importante verificar que nos sirva 
para nuestro tipo de máquina, tam¬ 
bién sería interesante un repaso 
sobre sistemas de numeración bi¬ 
nario, decimal y hexadecimal. 

Hasta la próxima 

Marcelo Oscar Martínez 
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PROGRAMAS 


ALUNIZAJE 


Habían pasado dos horas y la computadora central 
seguía sin funcionar. Aquel campo de energía había 
afectado a la estabilidad de la nave más de lo que 
creíamos. Seguíamos descendiendo y llegado el 
momento, tendríamos que hacer uso de los 
controles manuales. Todos estábamos 
aterrorizados: el alunizaje siempre lo había hecho 
el ordenador central, y ahora no era más que un 
montón de chatarra estéril. 

Habíamos aprendido a manejar la cápsula con 
relativa facilidad: el mando “7” la propulsaba hacia 
arriba, y el “5” hacia la izquierda. Todo era sencillo 
en el simulador de vuelo. 

Pero ahora no había simulación. 

En algún lugar de aquel planeta se encontraba la 
base de aterrizaje y, posiblemente, la muerte. 
George fue el encargado de efectuar la maniobra; 
con manos sudorosas y torpes conectó los 
retropropulsores, había comenzado la cuenta 
atrás!, lentamente la nave descendió, hasta que un 
pequeño descuido provocó una explosión. Esta vez 
no habíamos tenido suerte. Desconectamos el 
Spectrum y decidimos volver a intentarlo al día 
siguiente. 
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PANTALLA 

Comp.: ZX SPECTRUM 
Conf.: 16 K 

Cías.: ENT 

• .1 Á 

M / \ /» /\ 

/V' V j / v 

•' » / *. 
1 / *. 

,'1 

/ i 

i 

\ / 

! 1 . 

! ' i 

! Al! 

•¡ í 




FQR i=1 TO 16 

í PUO * { *\ A A ± i _ * 


ISO RESTORE 
130 LET S=USR (CHR$ (144 + i-in 


14.0 FOR Jal TO 8 
150 RERD 9 : POKE (s+j-l>,9 
160 NEXT J 
170 NEXT i 

180 DRTR 0,0,1,1,7,7,31,25,0,0, 
128,128,224,224,248,152,53,107,1 
27,243,96,96,192,192,172,214,254 
,207,6,6,3,3 

190 DRTR 1,1,1,1,1,1,1,1,224,17 
6,140,134,129,135,140,176,1,1,7, 
1,7,7,31,25,224,128,224,224,248, 

152 

200 DRTR 0,0,0,4,5,15,6,15,0,0, 
0,0,96,192,224,246,27,7,3,6,0,0, 
0,0,120,168,112,32,0,0,0,0 
210 DRTR 160,67,38,60,24,48,96, 
37,4,154,244,124,6,4,4,6,194,96, 
32,36,104,12Ó,79,193,130,14,12,3 
6,124,78,195,2,0,0,0,0,0,0,0,0 
220 LET Id =0 
230 GO TO 8000 

1020 LET bX=INT (RND*21): IF bx< 
11 THEN GO TO 1020 
1030 LET lt=bx*8: LET ft«(bX+4)* 
8 

1040 PRINT RT 21,bx ; : PRINT R 

T 21,bx+l; PRPER 5; INK 1; "JV : 
PRINT RT 21,bx+3;"i" 

1050 LET dis-1: GO SUB 1500 
1060 LET dial: GO SUB 1500 
1070 RETURN 

1530 LET ly*8+ (di*1) *16 

1540 LET lx»( (ft+24) *(di«l) )+(lt 

* (di »-l) ) 

1550 LET UP*255-(di»-l)*255 
1560 IF di=l THEN PLOT rt,8; DRR 
U INK 2;24,16 


1570 PLOT lx,ly 

1580 LET a=RND: LET fya((í<*. 6 )- 
(a>. 6 ) i *(INT (RND#48) +1) 

1590 LET fXadi*(INT (RND*16)+1) 
1600 IF di * ( LX+rx) >UP*di THEN LE 
T rx=up-lx 

1610 IF ly +ry >144 OR Ly+ry<0 THE 
N LET rya0-ry 
1620 LET LXalX+TX: LET 
1630 DRAU INK 2:rx,ry 
1640 IF LXOUP Then SO 
1650 RETURN 

2020 PRINT RT h ,x;" " 

2030 FOR jal TO 5 
2040 PRINT RT h+1,X;"AB": 

RT h +2,x; "CD" 

2050 BEEP .05,-(RND*43) 

2060 FOR i al TO 10: NEXT 
2070 PRINT RT h+l,x;"IÜ": 

RT h +2 , X ; " KL " 

2080 BEEP .05,-(RND*48) 

2090 FOR i al TO 10: NEXT 
2100 PRINT RT h + 1,X; "MN" : 

RT h +2 , X; "OP" 

2110 BEEP .05,-(RND*48) 

FOR i al TO 10: NEXT i 
NEXT j 

TO 20: PRINT RT 
,x;"DC";RT i+l,x; 


ly = ly +ry 
TO 1550 


PRINT 


PRINT 


PRINT 


2120 
2130 
2140 FOR iah+1 
-1,X;" RT i 
AB": NEXT i 
2150 RETURN 
8020 BORDER 3: 
UER 0: FLASH 0 
8030 GO SUB 
LET xa 
LET Oh ah 
LET 


8040 

8050 

8060 

5") 

8070 

0 ) 

8080 


INK 0: 
CLS 

1000 

LET hax 
LET oxax 
X =X + . 5* (X <30) - 


PRPER 7: O 


(INKEYí = " 
LET h =h + .5-(INKEYí = "7") *(h> 
Oh ,ox; " ": PRINT 

h,x;"AB": PRINT RT 
(h+2,x)+RTTR (h 
cr=82 OR C r =112 


BEE 

,5,1 

GO 


GO TO 8120 
LET l d =1: GO 


PRINT RT 
RT Oh + 1,ox; " 

8090 PRINT RT 
h +1,X; "CD" 

8100 LET craRTTR 
+ 2,X +1) 

8110 IF C r <53 OR 
THEN GO TO 8140 
8120 GO SUB 2000 
8130 BEEP .5,17: BEEP .5,15: 

P .25,13: BEEP .25,12: BEEP 
0: BEEP .25,13: BEEP .25,12: 

TO 8210 

3140 IF h > =20 THEN 
8150 IF C f=82 THEN 
TO 3170 

3160 IF l d =0 THEN GO TO 8050 
8170 FOR i=1 TO 6: PRUSE 25: BOR 
DER i: NEXT i: BORDER 3 
8180 PRINT RT 18,bx+1;"EF": PRIN 
T RT 19,bx +1; "GH" 

8190 BEEP .125,12: BEEP .25,19: 
PRUSE 10: BEEP .125,12: BEEP .25 
,19: PRUSE 10: BEEP .125,12: BEE 
P .25,19: PRUSE 10: BEEP .125,12 
: BEEP .25,19: PRUSE 10 
8200 BEEP .25,12: BEEP .125,14: 
BEEP .125,15: BEEP .125,22: BEEP 
.125,22: BEEP .125,15: BEEP .12 
5,14: BEEP .125,19: BEEP .125,14 
BEEP 25 12 

3210 FOR i=1 TO 100: NEXT i: CLS 
: GO TO 220 
8220 SRUE "alunizaje" 

8230 RUN 


[223 
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PROGRAMAS 


BIORRITMOS 


ZX SPECTRUM 

16 K 

ENT 


Para los aficionados al tema, este programa ofrece 
las tres curvas a lo largo de todo el mes. 


1 CLS : RESTGRE 

4. INK 1: FLASH 1: PRINT AT 10 
,3¡" BIORRITMOS 

INK 0; FLASH 0 

10 INPUT "Indique fecha de nac 
i tfi i en to " "Di a ";a;" Mes ";b;" 

Ano";c 

£0 INPUT "indique fecha actual 
",,"Mes "; d ; " Ano ";e 

£5 OLS 

30 LET t=INT (( (t-C) *365.25) + < 
(•d-b) *30.35) -a) 

800 FOR r«0 TO £55 
810 PLOT r,10 

815 IF falNT (r/8)*8 THEN FOR u 
a10 TO £0: PLOT r,U: NEXT U 
8£0 NEXT r 

830 PRINT AT £1,0;"1 10 

£0 30 " 

84.0 PRINT AT 0,0;; INK l;"fisic 
o "; INK 2; "mental "; INK 4.; "e 
mocional" 

900 FOR r =1 TO 3 
905 RERD U 

910 LET l=2*PI*(t-(INT <t/U)*U) 

) /U 

920 LET k»2*PI*(33-u)*.03 
1000 FOR a al TO K + l + (2*PI) STEP 
. 1 

1010 PLOT INK ((1 AND Ua£3)+(2 A 

ND U =28) + (4 AND Ua33)); (a-l)*(35 

-28+U) ,90 + SIN a *60 

1020 NEXT a 

1030 NEXT r 

104.0 DATA 23,28,33 

1050 INPUT "Otro biorritmo? i "; 

a«: IF a $(1) ="S" THEN GO TO 1: I 

F a *a"n" THEN GO TO 1500 

1500 CLS 

1565 STOP 

9999 SAUE "BIORRITMOS" LINE 1 


PANTALLA 


SIMON 


ZX SPECTRUM 

16 K 

ENT 


El conocido juego de “Simón” implementado para 
el Spectrum genera secuencias aleatorias de 
colores y sonidos. 




1 CLS : LET y*=" 

£ PAPER 7: BORDER 


¿N¡< 


AT 




a (30) 
BORDER 


S INK 0: PRINT AT 9,1; "LA COM 
PUTADORA LE PROPONDRA UNA SERIE 
DE COLORES' QUE UD. TENDRA QUE IN 
TRODUCIR EN ORDEN. CUANDO LO LO 
GRE, LA SIGUIENTE SERIE AUMENT 
ARA EN UNO." 

9 PAUSE 4.00 
10 DIM r(30): DIM 
15 PAPER 7: INK 0 
LS 

£0 FOR i=1 TO 30: 

(RND * 8 ) : NEXT i 
30 FOR n =1 TO 30 

INPUT "PUlse ENTER 
listo."; LINE 
FOR C = 1 TO n 
LET CNaR(C): 

CLS NEXT C 
FOR C=1 TO n 
INPUT "(?Que 
a (c) 

IF a ( C ) < > INT 
INPUT "Entre 


LET 


40 
s te 
50 
60 
S0 
90 
100 
r?) ", 
110 
THEN 


2 $ 

GO 


7: C 
r(i)aINT 

cuando e 


SUB 300 


numero de coto 


a introducir 


a i. c j 

O y 
a (c) 



lo 
0 

1£0 LET en =a ( C) : 

130 IF a(c) < > r(c) 

£0: GO TO ISO 
140 N E XT C 

PRINT AT 16,0;"Ha 
' correctamente. 
NEXT n 

PRINT AT 15,0;"ME 

PRINT AT 16,0;"TE 
OCADO! ! ! ! " 

187 PAUSE ISO 
190 IF N > 30 THEN L 
£00 FOR 1=1 TO N: 

1; PAPER R (I) , INK 
.5,R(I)*5-20; NEXT 
£10 CLS 
£40 STOP 

3O0 PRINT AT 0,O, 

ER CN,y $: NEXT I 
310 PRINT AT 6,14; 

EP 1,CN*5-£0 
320 RETURN 
9999 SAUE "SIMON" 


GR a (C) <0 
7. vuelva 
GO TO 11 


GO SUB 30O 
THEN BEEP 


acertado 


HAS 

HAS 


UENCI 

EQUIU 


ET N =30 
PRINT BRIGHT 
R(I);: BEEP O 
I 


BRIGHT 1; PAP 
INK 9;CN: BE 
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GLOSARIO DE TERMINOS 
INFORMATICOS 


A partir de este número, K64 irá publicando en esta sección un glosario con los 
términos más comunmente usados en textos y revistas de computación. Como 
esta jerga mantiene la mayoría de sus términos en inglés, nos remitiremos a ella 
dando la mejor traducción y explicación posible. 


R/D - Analog to Digital: 

La conversión de una señal 
analógica a una representación 
digital (o binaria), de modo que 
puede ser almacenada en un 
ordenador. Por ejemplo, un valor 
analógico de 25 Voltios podría 
convertirse al valor binario 11001. 

ACCESS TIME: 

Al tiempo que transcurre entre el 
direccionamiento de un 
dispositivo digital hasta que la 
información enviada a ese lucjar 
queda disponible para ser leída 
con seguridad. 

ACCUMULATOR: 

Una memoria de uso transitorio 
que se usa para operaciones 
matemáticas rápidas en un CPU. 

ADDITTION WITH CARRY 
INSTRUCTION: 

Operación de suma que tiene en 
cuenta la condición de “carryflag” 
(o de “me llevo una”) de una 
operación anterior de adición. De 
especial interés en aritmética de 
bytes múltiples. 

ADDITTION WITHOUT CARRY 
INSTRUCTION: 

Operación de suma que ignora la 
condición de “Carry flag” al 
comienzo de una operación de 
edición. 

ADDRESS: 

La especificación de una sola 
dirección, en especial, de una 
“palabra”, en un sistema de 
memoria o de bancos de memoria. 

ALGORITHM: 

Conjunto de reglas y 
procedimientos lógicos 
que describen como 
se puede resolver 
un problema en un 
número determinado / 
de pasos. 

ALU - Arithmetic 
Logic Unit: 

Parte de un 
microprocesador 
que realiza las 
operaciones 
aritméticas y lógicas. 


ANALOG: 

Valor o magnitud física, dispositivo, 
etc. cuyo cambio se produce en 
forma continuada, en vez de por 
incrementos discretos. 

ARITHMETIC INSTRUCTIONS: 

Un tipo general de instrucciones 
de microprocesador que resulta 
en operaciones matemáticas 
(cono, suma, resta, bool, etc.). 

ASCII - American Standard Code for 
Information Interchange: 

Norma muy difundida para la 
representación de números, letras 
y otros símbolos, utilizada para 
intercambio de información entre 
dispositivos de entrada/salida 
como teclados, pantallas, 
Impresoras, etc. 

ASSEMBLER PROGRAM: 

El programa usado para convertir a 
símbolos mnemónicos de 
instrucciones de máquina y 
direcciones, en instrucciones y 
direcciones reales interpretables 
por el Microprocesador. 

ASSEMBLING A PROGRAM: 

Al proceso de preparar un 
programa para la ejecución del 
mismo por un microprocesador. 
Generalmente se refiere al 
proceso de convertir 
representaciones mnemónicas 
usadas por los programadores, a 


códigos reales binarios usados en 
el CPU. 

AUDIO MAGNETIC TAPE 
STORAGE UNIT: 

Se refiere a un dispositivo capaz 
de almacenar programas de 
ordenador y/o datos en cassettes 
ordinarios de audio, usando tonos 
para la representación de la 
información binaria. 

AUTO INDEXED ADDRESSING: 

Un modo de direccionamiento que 
resulta del contenido de un 
registro de índice siendo 
automáticamente alterado poruña 
cierta cantidad cada vez que se 
ejecuta una instrucción. 

AVERAGE RANDOM ACCESS 
TIME: 

El tiempo promedio requerido 
para alcanzar un punto específico 
(o porción de datos) a una 
dirección elegida aleatoriamente 
cuando la unidad está en una 
dirección que también había sido 
elegida aleatoriamente. Para 
cintas magnéticas y discos, el 
tiempo promedio de acceso es 
generalmente igual a la mitad del 
tiempo del caso peor. 
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La página de Epi 


Sólo Epi 

le da un 
computador 
para üd. solo 

• Grupos hasta 
8 personas. 

• Turnos: mañana, 
tarde y noche. 

• Niños, 
adolescentes y 
adultos. 

• Taller de 
computación para 
toda la familia. 


CASSETTES PARA TI-99/4A 

BASIC 

EXTENDIDO 

SIMULADOR DE VUELO 

LABERINTO 3D 

GUERRA EN EL MAR 

CONTROL DE TRAFICO AEREO 

GUERRA DE GUERRILLAS 

JUEGO DEL 15 

CRUCES 

EL RESCATE DE LA EPITUFA 

JUEGOS DEL PAR 

FLINDERS 

AJEDREZ DEL CABALLO 

PARACAIDAS 

GENERALA 

RANAS II 

EL VIAJE DE L.A BOA 

GOLF 

ENCUENTRE EL TESORO 

ORGANO ELECTRONICO 

ESQUELETO 

SUBGUERRA 

GUERRA DE HORMIGAS 

CAVERNA 

LABERINTO DE ARIEL 

EDITOR DE TEXTOS 

ADVANCE 

TRUCO 

OFIDIOS 

BLACKJACK 

ORDENANDO CUADROS 

BACKGAMMON 

99’ INVADERS 

CONCORDIUM 

PAC-MAN 

CONCENTRACION 

HORDAS 

TANQUE LASER 

MONOPOLIO ESPACIAL 

URANIO 

BASE LUNAR 

FORMATOS DISPONIBLES 

CASSETTECAS 

x 4 = $a 4.990.- 

CASSETTECAS INDIVIDUALES 
SISTEMA SKINPACK 

x 6 = $a 6.490.- 

118 Títulos 

x 12 = $a 9.990.- 

a $a 1.100.- c/u. 


SISTEMAS 


Las microcomputadoras son equipos aptos para procesar 
sistemas comerciales, verifíquelo!, EPI se lo asegura. 


Disponemos: 

• Stock 

• Facturación 

• Clientes 


• Cuentas Corrientes 

• Contabilidad 

• Listas de precios 


y también sistemas a su medida. 


□ 


y// 


1 EMPRESA PARA 
INFORMATICA 


'■SsL 


INSTITUTO: Suipacha 946 1er. Piso (1008) Capital. 
VENTAS: Viamonte 1479 8 o “B" (1055) Capital. 
Teléfonos: 311 -8618 y 49-7985. 

























PROGRAMAS 


EL RETORNO DEL JEDI 

El juego consiste en tratar de salir vivo de un parque, 
esquivando árboles. 

Usted maneja una moto y sus comandos son el “6” o 
y el “7” con lo que podrá desplazarse hacia abajo o 
hacia arriba respectivamente. 



PANTALLA 


Comp.: TS 1000 
Conf.: 16 K 

Cías.: ENT. 


OHXM m -5 SMPJ a»> «SX» 

HtLHOÑ] ti . 

ESTAS A LOS MANDOS De UNA MOTü- 
JET IMPERIAL EN EL BOSQUE DE EN- 
DOP: . 1.05 REBElDES SE HhN INFIL¬ 
TRADO EN LH LUNA Y -JAN A UÜLAR 
EL GENERADOR DE ENERGIA QUE PRO¬ 
TEGE H lA ESTRELLA DE LH MUERTE. 

TU MISION CONSISTE EN SALIR DEL 
BOSQUE ELUDIENDO LOS. OBSTACULOS 
PARA AUISAR Al PERSÜNL DEL GENE- 
RAD.OR . 

AGEPThS TU MISION ? 


L JE 


RELAuATE. 

MU i BIEN. TUS MANDOS SON ESTOS. 

i ...hRRIBh 
" ó"...ABAJO 

NO TE ACERQUES A LÜS ARBOLES DE 
FRENTE ü CHOCARAS. TAMPOCO TE A- 
CER0UE3 HL BORDE DEL BOSQUE. 

52 PASAS POR UN ARBOL Y ESTE DE¬ 
SAPARECE, SERA DEBIDO h QUE HAS 
5OBREUOlAdo su CUPh. 


AH, OTRA luSh. 
E STAS AUISADO. 


ESO 


Tu DO . QUE TENGAS SUERTE 


- Ul 5H CUAuQUItR T ir. >_ l A . ■_ 

COMO NO SO v, TAN tlHL.0 . TE DEJARE 
r LEG IR' El NUMERO l>E hRBOLES QUE 
RlANT ARE ‘ En El' BOSQUE. 

■ yO 200■ 



5 


h sr 

Ss >Ii & 

& 

£3 

a 

¿«Su 

e< s 

a 

t ■ - s 



, s 

Ss gj 

£< 

ú 

j 

*5 

m 

! ú 

i 

É3 

ü 


OBi 

& 

¿i _ 


a m 

ú 

«3 

m 

ta 



Si 

s 



Ü 


í3 


£3 
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PROGRAMAS 


80PRINT 


: :EL RETORNO DEL 


90 PRINT 
100 PRINT "RELAJATE." 

110 PRINT "ESTRS fl L05 MANDOS D 
E UNA MOTO- JET IMPERIAL EN EL B 
OSQUE DE EN-DOR. LOS REBELDES SE 
HAN INFIL- TRADO EN LA LUNA Y V 
AN A VOLAR EL GENERADOR DE ENER 
GIA QUE PRO-TEGE A LA ESTRELLA D 
E LA MUERTE." 

120 PRINT 

130 PRINT "TU MISION CONSISTE E 
N SALIR DEL BOSQUE ELUDIENDO LOS 
OBSTACULOS PARA AUISAR AL PERSO 
NL DEL GENE-RADQR." 

140 PRINT 

150 PRINT "ACEPTAS TU MISION ?" 
160 LET A$=INKEY$ 

170 IF A $ ="S" THEN GOTO 200 
1S0 IF A $ ="N" THEN GOTO 3000 
190 GOTO 160 

200 FOR N»21 TO 3 STEP -1 
210 PRINT AT N, 0 


220 NEXT N 
230 PRINT 1 
SON ESTOS: 
240 PRINT 1 

250 PRINT 
260 PRINT 1 
ARBOLES DE 
AMPOCO TE A 
BOSQUE. " 

262 PRINT 

263 PRINT 
L Y ESTE DE 
O A QUE HAS 


;muy bien, tus mandos 

.7“". . .ARRIBA 

"" 6 ""...ABAJO" 

'NO TE ACERQUES A LOS 
FRENTE O CHOCARAS. T 
-CERQUES AL BORDE DEL 


'SI PASAS POR UN ARBO 
-SAPARECE . SERA DEBID 
SOBREVOLADO SU COPA. 


70 PRINT 
:71 PRINT 



[NT 
260 PRINT 
GAS SUERTE. 

285 PRINT 
IER TECLA." 
290 PAUSE 
FOR Na 
SCROLL 
NEXT N 
CLS 
CLS 
PRINT 
DEJARE 
QUE 


"AH, OTRA COSA, 
ESTAS AVISADO. 


NO HA 


300 
310 
320 
1170 
1220 
1260 
, TE 
ARBOLES 
OSQUE." 
1262 PRINT 


"ESO ES TODO, QUE TEN 
AT 21,0;"PULSA CUALQU 

4E4 

0 TO 21 


INPUT 
PRINT 
IF OB < 


1265 
1268 
1270 
O 1262 
1320 CLS 
1330 FAST 
1340 FOR Xa 
341 PRINT 


'COMO NO SOY TAN MALO 
ELEGIR EL NUMERO DE 
""PLANTARE"" EN EL B 

"(50/200)" 

OB 

OB 

50 OR OB > 200 THEN GOT 


0 TO 31 

AT 0,X;"fl"; AT 21,X; " 


1342 NEXT X 

1344 FOR Xa 1 TO 20 

1345 PRINT AT X,31;"fl" 

1346 NEXT X 

1347 PRINT AT 11,31;” ";AT 20,31 
;" ";AT 15,31;" ";AT 6,31;" ";AT 

2,31; " " 

1350 FOR Ia0 TO OB 

1352 LET ARBLINsINT (RND*19>+1 

1353 LET ARBCOL-INT (RND*29)+1 


1354 PRINT AT ARBLIN,ARBCOL;"fl" 
1 TCt: Mp VT T 

1360 LET MOTaINT (RND#20) 

1370 LET JET =0 

1380 PRINT AT MOT,JET;">" 

1400 SLOW 

1500 PRINT AT 21,0;" 


1 , 0 ; 


IER TECLA 


1510 PAUSE 
1520 PRINT 

flaagaaaaa 

1718 LET C=0 

1719 PRINT AT MOT , JET; 1 

1720 LET MOT = MÜT 4- ( INKE\ 
NKE Y $ = "7") 


PULSA CUALOU 


$ = "6 " ) - (I 


1730 LET JET=JET+1 

1731 LET C=C+1 

1740 PRINT AT MOT,JET,">"; 

1741 IF JET =31 THEN GOTO 1900 
1750 IF PEEK ÍPEEK 16398+PEEK 16 
399*256)=CODE "fl" THEN GOTO 1770 
1760 GOTO 1719 

1770 PRINT AT MOT , JET; "SI" ; AT MOT 
,JET;"I";AT MOT, JET.;" " 

1775 PAUSE 50 
1800 CLS 

1810 PRINT "HAS COLISIONADO CONT 
RA UN ARBOL, LO SIENTO." 

1820 GOTO 1960 
1910 PAUSE 50 
1920 FOR N =0 TO 21 
1930 SCROLL 
1935 NEXT N 

1940 PRINT AT 0,0;"ENHORABUENA, 
SALISTE DEL BOSQUE SIN PROBLEMAS 

1960 PRINT "CONSEGUISTE ";C;" PU 
NT OS." 

1970 PRINT 

1980 PRINT "ECHAMOS OTRA PARTIDI 
TA? (S/N)" 

1990 LET B$ = INKEY$ 

2000 IF B $ ="S" THEN GOTO 2020 
2010 IF B $ ="N" THEN GOTO 2070 
2015 GOTO 1990 

2020 PRINT "JUGARAS EN LAS MISMA 
S CONDICIO- NES O NO ?" 

2030 INPUT C$ 

2040 IF C$="SI" THEN GOTO 1300 
2050 IF C$ ="NO" THEN GOTO 1200 
2060 GOTO 2030 

2070 PRINT "NO TIENES MIS NERVIO 
S DE ACERO. ME DAS PENA. BUENO . 

..AHI TE QUEDAS." 

2080 PAUSE 150 
2090 FOR Nal TO 22 
2095 SCROLL 
2098 NEXT N 
2100 STOP 
3000 CLS 

3010 PRINT "ESTA BIEN, TRAIDOR, 
TU LO HAS QUERIDO..." 

3020 PRINT 
3030 PRINT AT 10,14; 

3040 PRINT AT 11,14; 

3050 PRINT AT 12,14; 

3060 PRINT AT 13,14; 

3070 PRINT AT 14,14; 

308O PRINT AT 15,14; 

3090 PRINT AT 16,14; 

3100 PRINT AT 15,0;" 

3110 FOR Fal TO 21 
3120 PRINT AT 11,12;"BANG" 

3160 PAUSE 50 
3170 CLS 
3180 STOP 
4000 SAVE "JEDH" 

4010 RUN 
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GRAFICOS 1 


ZX SPECTRUM 
16 K 
EDU 

Se logran infinitas variaciones de figuras 
semejantes a las que aparecen en los billetes. 
Pueden lograrse otras variantes, modificando los 
argumentos trigonométricos de las líneas 60 y 70, 
sobre todo usando números primos entre sí. 


PANTALLA 


10 RERD q: IF NOT q THEN STOP 

20 CLS 

4.0 LET f*0 

50 FOR n=0 TO 2*PI+.01 STEP 2* 
Pl/q 

60 LET X ■ (SIN Í29*n)+1)*60+68 
70 LET y=(C0S (ll*n) +1) *60+28 
80 IF f=l THEN DRRU X-a,y-b 
90 LET f*l: LET a=X: LET b=y 
100 PLOT X ; y: NEXT n 
110 PRUSE 2ñ0 „ _ 

120 DRTR 20,22,23,4.0,4.7,51,69,7 
2,80,83,0 
130 GO TO 10 
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INTRODUCCION A LA COMPUTACION 


QUE ES 

UN COMPUTADOR: 


n computador es básica¬ 
mente un “procesador de 
información” ¿qué signifi¬ 
ca esto? Sencillamente 
como se ve en la figura 1, los datos 
que se introducen al computador, 
ya sea desde un teclado o desde 
un disco magnético, son elabora¬ 
dos de alguna forma especial y fi¬ 
nalmente salen a través de una 
unidad de salida para que los pue¬ 
da usar cualquier persona. 

Un ejemplo de este proceso es el 
que se produce mensualmente al 
liquidar los sueldos en cualquier 
empresa. Los datos de entrada 
podrán ser las listas de emplea¬ 
dos, con sus sueldos del mes ante¬ 
rior y el incremento del mes. Una 
vez introducidos todos los datos, 
se comienza el proceso interno. 
Los datos de salida serán los reci¬ 
bos de sueldo con los nombres de 
cada empleado, las deducciones 
que le correspondan y las horas 
extras si las hubiera. 

La pregunta evidente es, cómo 
procesa la computadora todos es¬ 
tos datos. Es más cómo hace la 
misma computadora para hacer 
miles de procesos distintos con la 
misma rapidez y eficiencia. La res¬ 
puesta no es sencilla, quizás lo 
más importante para tener en 
cuenta para entender el funciona¬ 
miento de una computadora es el 
hecho de que es una máquina 
“programable” o sea que la fun¬ 
ción que realiza está determinada 
por el programa que tiene almace¬ 
nado internamente. 

Cómo se carga el programa, dón¬ 
de se almacenan los datos y el pro¬ 
grama y cómo se procesa la infor¬ 
mación son algunas de las pre¬ 
guntas que trataremos de contes¬ 
tar dentro de esta serie de notas. 

- Para poder comprender qué es 
una computadora comenzare¬ 
mos definiendo su estructura in¬ 
terna. 


Como veremos posteriormente 
esta organización típica corres¬ 
ponde tanto a los grandes com¬ 
putadores que puedan ocupar un 
piso completo de una gran corpo¬ 
ración o bien a los que pueden 
llevarse en un bolsillo. 

Las unidades funcionales que la 
conforman son, como se ve en la 
figura 2: 

- Unidad Central de Procesamien¬ 
to (C.P.U.) 

- Memoria Principal 

- Unidades de Entrada/Salida 

La Unidad Central de Procesa¬ 
miento (CPU) tiene tres funciones 
básicas, la de decodificar e in¬ 
terpretar las instrucciones que 
se encuentran en el programa, la 
de controlar el resto del compu¬ 
tador de acuerdo a las interpreta¬ 
ciones que surjan de dichas ins¬ 
trucciones y la de realizar las 
operaciones matemáticas y lógi¬ 
cas básicas. Verdadero cerebro 
del equipo, tomas las decisiones 


y manda el restd del equipo que 
las realiza. 

La Memoria Principal almacena 
la información necesaria para 
que trabaje el computador, ya 
sean los datos como los progra¬ 
mas que introduzcamos. 

Debemos diferenciar entre esta 
memoria principal o de trabajo, 
como se la llama a veces, de la se¬ 
cundaria donde también se alma¬ 
cenan datos y programas pero en 
algún dispositivo externo (disco o 
cintas magnéticas, generalmen¬ 
te), desde donde solamente pue¬ 
den ser usados por la CPU una 
vez transferidos a la memoria 
principal. Es aquí donde se alma¬ 
cena el programa que le permití 
rá a la CPU tomar las decisiones 
de mando. 

Las unidades de entrada/salida 
son el único medio por el cual el 
ser humano puede comunicarse 
con el equipo. 

INGENIERO NINO MORENO 



FIG. 2) 


BUS DE DATOS 


C.P.U. 



BUS DE DIRECCIONES 
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PROGRAMAS 



MATEMATICA BASICA 


COMPUTADOR TI99/4A 



1 FOR A=1 TG 10 :: CALL COLORÍA,12,2)ss NEXT A :: CALL CLEAR :¡ CALL SCREENÍ2):¡ 
^CALL COLOR(9,12,2):: CALL CHARÍ96, "OOOOOOOOFOFOFOFO"):: CALL CHARÍ97,"FOFOFOFO* 

2 CALL CHAR(98, "FFFFFFFFFOFOFOFO")i i CALL CHAR(99,*FOFOFOFOFOFOFOFO*)¡: CALL CHA 
R(100 ."FFFFFFFfFFFFFFFF*):: CALL CHAR(101,*FFOOFFOOFFOOFFOO*) 

3 CALL CHAR(102."F000F000F000F000*)is CALL VCHAR(4,3,100,2):: CALL VCHAR(4,6,100 
,2):: CALL VCHAR(4,9,100.2)s: CALL HCHAR(5,4,96) 

4 CALL HCHAR(4.4,97):: CALL HCHAR(3.3,98):: CALL HCHAR(3,4,97):: CALL HCHAR(5,5, 

96):í CALL HCHAR(3,6,98): ¡ CALL HChAr(3,7,99) ’ 1 

5 CALL HCHAR<4,7.97 , : ! CA LL HCHAR(5,8.96):¡ CALL HCHAR(3,9,99)ü CALL HCHAR(5,11 
.96):: CALL HCHAR(2.9,97):: CALL HCHAR(24.1,101,30) 

6 CALL VCHAR(1.30.102.24):: A$=*EMPRESA PARA INFORMATICA'' :¡ B=8 :: C=3 :: SOSUB 
9:: A$="PRQGRAHAS PARA EL" :: B=12 :: C=3 :: SOSUB 9 :: A$="MICROCOMPUTADOR TI 

-99/4A" 

7 B=14 :: C=3 :: SOSUB 9 :: A$= B FABRICADO Y DISTRIBUIDO EN" :: B=18 :: C=3 :: G 
OSUB 9 :s A$="LA REPUBLICA ARGENTINA POR* :: B=20 :: C=3 :: SOSUB 9 

8 A$=*’SDT’INTELIGENCIA ARGENTINA* :: B=22 :: C=3 :: GOSUB 9 :: FOR D=1 TO 700 : 
: NEXT D :: GOTO 10 

9 FOR D=1 TO LEN(AI):: B$=SE6$(A$,D,1):: E=ASC(B$):: CALL HCHAR(B,C-l+D,E)¡¡ NEX 
T D :: RETURN 

10 CALL CHARSET :: CALL CLEAR :: C$=*OOOOOOOOOOOOFFFF" :: CALL CHAR(128.C*):¡ D$ 
="OOOOOOOOOOOOFFFF* :: CALL CHAR(136,D$):¡ CALL CHARÜ29 *FFFF*)¡: CALL'C0L0RÍ14 

7 1):: CALL CLEAR 

hh CALL SCREEN(16):: PRINT TAB(11);"HATEHATICA":TAB(13)s-BASICA*:TAB(7):" EPI 
INFORMATICA * :: PRINT : : :TAB(10);*(C) EN 1984*: : :TA&<8);"BASIC EXTENDIDO" : 
: FOR F=1 TO 6 :: PRINT :: NEXT F 

170 FOR 6=6 TO 29 ¡: CALL HCHAR(4.6,42):: NEXT G :: FOR 6=5 TO 20 :: CALL VCHAR( 
6,29.42):: NEXT G :: FOR G=28 TO 6 STEP -1 :: CALL HCHAR(20,G,42):: NEXT 6 :: FO 
R 6=19 TO 5 STEP -1 :: CALL VCHAR(G,6,42):: NEXT S 

210 FOR H=1 TO 10 :: FOR 1=1 TO 50 :: NEXT I :: CALL COLOR(2,11,4):: FOR 1=1 TO 
100 :: NEXT I :: CALL COLOR(2,2,4):: FOR 1=1 TO 50 :: NEXT I :: NEXT H 
230 DISPLAY AT(2,14)ERASE ALL:"MENU* :: DISPLAY AT(4.5):"il¿ APRENDIENDO SUMAS* 
240 DISPLAY AT(6.5):*i2¿ APRENDIENDO RESTAS * :: DISPLAY AT(8,5):*¡3¿ MIS PRIME 
RAS SUMAS" :: DISPLAY AT(10.5):"¡4¿ MIS PRIMERAS RESTAS* 

250 DISPLAY AT(12,5):*¡5¿ MAS SUMAS * :: DISPLAY AT(14,5):"¡6¿ SUMANDO EN COL 
UMNAS* :: DISPLAY AT(16,5):*¡7¿ FIN DEL PROGRAMA* 

260 DISPLAY AT(22,5):*OPRIHE UN NUMERO DEL 1 * :: DISPLAY AT(23.5):* AL 7 Y P 
ODEMOS EMPEZAR * :: CALL COLOR(2,2.1) 

280 CALL KEY(0,J,K):: 1F K=0 THEN 280 :: IF J<49 OR J>55 THEN 280 :: E$=CHR$(J): 
: J=VAL(E$)s: 

290 ON J GOTO 300,530,750,1010,1250.1430,1820 

300 DISPLAY ATdO.lDERASE ALL:"YA SE !" :: DISPLAY AT(12,10):"ELIGIERON" :: DIS 
PLAY ATI 14,5)¡"APRENDIENDO A SUNAR" 

305 60SUB 9000 
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320 DISPLAY AT<6.1)ERASE ALL:'CUANDO SUMANOS DOS NUMEROS" :: DISPLAY AT(8,l)s"VA 
MOS A OBTENER OTRO QUE ES" ¡¡ DISPLAY AT(10,1):"MAS GRANDE." 

330 DISPLAY AT(12,1)j"VEAMOSLO EN UN EJEMPLO !!" ¡: DISPLAY AT(14,9)!"1+3=4" ¡¡ 
DISPLAY AT(16,1) rESO ! 4 ES MAS GRANDE QUE ■ 

340 DISPLAY AT(18,l)s"EL 1 (UNO) Y EL 3 (TRES)." ¡; DISPLAY AT(20.1)s"RECUERDAí 
LA SUMA DA COMO" s: DISPLAY AT(22.1)!"RESULTADO NUMEROS MAYORES. 1 
350 C$="OOOOOOOOOOOOFFFF" ¡¡ CALL CHAR(128,C$):! D$="000000000000FFFF" ;; CALL C 
HAR(136,D$)si GOSUB 9000 ¡¡ CALL CLEAR 

370 DISPLAY AT(2,1)!"UNA LINEA DE NUMEROS NOS VA" ;¡ DISPLAY AT(4,1)¡"A MOSTRAR 
COMO SE HACEN MAS" ü DISPLAY AT(6,1):"GRANDES LOS NUMEROS." 

380 DISPLAY AT(11.3);"1 2 3 4 5 6 7 8 9 10 11 12" :: DISPLAY AT(15,1)i"ESTA ES U 
NA LINEA DE NUMEROS" 

390 CALL HCHAR(10.5,128,28):: FOR L=2 TO 6 STEP 2 ¡¡ FOR TT=1 TO 1000 :¡ NEXT TT 
ü CALL HCHAR(L,3,o2,28):s NEXT L ¡: CALL HCHAR(15,1,32,32) 

391 GOSUB 9000 

410 DISPLAY AT(4.1)¡"VEAMOS AHORA UN EJEMPLO!" ¡¡ DISPLAY AT(17,1):"SUMEMOS 2+2 
SOBRE LA LINEA."' 

415 CALL COLOR(14.12,1) 

419 FOR 1=1 TO 300 ü NEXT I ¡¡ DISPLAY AT(14,14):"2" 

420 FOR L=5 TO 7 ü FOR TT=1 TO 50 ¡¡ NEXT TT :¡ CALL HCHAR(10,L,136)s: NEXT L : 

¡ CALL SOUND(25,880,2) 

439 DISPLAY AT(14,15)s"+" ¡¡ CALL SAYCAND"):: DISPLAY AT(14,16)s“2" ¡s CALL SAY 
("TNO") 

440 FOR L=8 TO 11 ü FOR 65=1 TO 50 ü NEXT GG ¡: CALL HCHARdO.L, 136)i: NEXT L 
ü CALL SOUND(25.880,2) 

460 DISPLAY AT(14.17):"=* ü DISPLAY AT(14,18)¡"4" s¡ FOR L=1 TO 10 ¡¡ FOR 1=1 T 
O 50 ¡¡ NEXT I ü'CALL HCHAR(14,20,32):: FOR 1=1 TO 50 
465 CALL COLOR(14.7.1) 

480 NEXT I !¡ CALÍ HCHAR(14,20,52):í FOR 1=1 TO 50 :: NEXT I ¡; NEXT L ü CALL C 
LEAR :i DISPLAY AT(16,1):"LO VE! LA SUMA HACE NUMEROS" 

481 DISPLAY AT(18,1)¡"MAS GRANDES !!" ¡; DISPLAY AT(20,1):"VAMOS AL INICIO Y ELI 
JAMOS." 

510 GOSUB 9000 ¡s GOTO 230 

530 DISPLAY AT(10,11)ERASE ALLs"YA SE !* ¡: DISPLAY AT(12,10)!"ELIGIERON" ¡: DIS 
PLAY AT(14,5)s"APRENDIENDO A RESTAR* 

535 GOSUB 9000 

550 DISPLAY AT(3,DERASE ALL:"CUANDO DOS NUMEROS SON" ;; DISPLAY AT(5,1)¡"RESTAD 
OS EL UNO DEL OTRO" ü DISPLAY AT(7.i);"SE OBTIENE UN NUMERO MENOR." 

570 DISPLAY AT(10,1)í"VEAMOSLO EN UN EJEMPLO !!" ¡¡ DISPLAY AT(12,9):"4-3=1" ¡¡ 
DISPLAY AT(14,1)¡ l ESO ! 1 ES MENOR QUE EL* ¡¡ DISPLAY AT(16,1):"3 (TRES) Y EL 4 
(CUATRO)." 

590 DISPLAY AT(18,1):"RECUERDA! LAS RESTAS" ü DISPLAY AT(20.1)¡"DAN COMO RESULT 
ADO" •! DISPLAY AT(22.1)¡"NUMEROS MENORES." ü GOSUB 9000 
600 DISPLAY AT(2,DERASE ALLí"VEMOS EN UNA LINEA DE NUMEOS" ¡¡ DISPLAY AT(4,1)s" 
COMO RESULTAN MENORES POR" ;¡ DISPLAY AT(6,1)i"EL HECHO DE RESTARLOS." 

602 DISPLAY AT(11,3) ¡"I 23456789 10 11 12" 

620 DISPLAY AT(15.1)¡"ESTA ES UNA LINEA DE NUMEROS* u CALL HCHAR(10,3,128,28)ss 
GOSUB 9000 ¡¡ FOR L=2 TO 6 STEP 2 

622 CALL HCHAR(L,3,32,28)ü NEXT L ü CALL HCHAR(15,2,32,23)! ¡ CALL HCHARdS, 1,3 
2,30) 

630 CALL COLOR(14.7.1) 















650 0ISPLAY AT(4.1)i"VEAMOS UN EJEMPLO !!!" js DISPLAY AT(17,1):"RESTEMOS 5-3* 

• ¡ FOR 1*1 TU 300 :: NEXT I :: DISPLAY AT(14,14)s"5" :: CALL SAY("FIVE"):s CALL 
HCHAR(10,13.136) 

670 CALL SOuND<25,880,2):: DISPLAY AT<14,15)::: FOR Q=1 TO 500 :: NEXT Q ¡; 
DISPLAY AT(14,16)i"3" ¡i CALL HCHAR<10,9,136) 

671 FOR TT*1 TO 500 :s NEXT TT 

672 FOR L=12 TO 7 STEP -1 :: FOR SS=1 TO 50 :: NEXT 66 

690 CALL HCHAR(10,L,136)J! NEXT L :: CALL SOUND<25,880,2)¡: DISPLAY AT(14,17):*= 

• :: CALL SAY("IS 1 ):: DISPLAY AT(14,18)!"2" ¡: CALL SAY<"THO"):: FOR L=1 TO 10 : 

: FOR 1=1 TO 50 ¡¡ NEXT I 

710 CALL HCHAR(14,20,32)¡: FOR 1=1 TO 50 :: NEXT I ¡: CALL HCHAR(14,20,50):i FOR 
1*1 TQ 50 • • NPlt I • 1 NFXT I # 1 CALL Cl PAR 

730 DISPLAY*AT(16,1):"LA RESTA DA COHO RESULTADO" :: DISPLAY AT(18.1):“NUMEROS M 
AS CHICOS !" :: FOR 1=1 TO 1500 :: NEXT I :: DISPLAY AT(20,1):“VOLVAMOS AL CQMIE 
NZO." 

735 SOSUB 9000 :: SOTO 230 

750 DISPLAY AT(10.1 DERASE ALL¡"YA SE i" :: DISPLAY AT(12,9):"ELIGIERON* :: DISP 
LAY AT(14,3)s" MIS PRIMERAS SUMAS" :: GOSUB 9000 

770 DISPLAY AT(3.DERASE ALL:“NIS PRIMERAS SUMAS" :: DISPLAY AT(5,1)¡“DIME QUE E 
S LO QUE SUMARAS 1 :: DISPLAY AT(7,1):"LEE CON CUIDADO* 

780 DISPLAY AT(9,1):“1- SUMO UNO" :: DISPLAY AT(ll.l):"2- SUMO DOS" ¡: DISPLAY A 
T(13.i):"3- SUMO TRES" :: DISPLAY AT(15,1):"4- SUMO CUATRO" 

790 DISPLAY AT(17,1)¡"5- SUMO CINCO" :: DISPLAY AT(23,1):"ELIJE UNO DE ELLOS" 

800 DISPLAY AT(19,1):"6- VUELVO AL MENU" 

810 CALL KEY(0,J,K):¡ IF K=0 THEN 810 :: IF J<49 OR J>54 THEN 810 :: E$=CHR$(J>: 

: J=VAL(E$) 

820 IF J=6 THEN 230 
830 GOSUB 850 :: SOTO 770 
850 CALL CLEAR :: M=0 :: N=0 :: 0=10-J 
870 CALL CLEAR :: RANDOMIZE :: P=INT(RND*0):: 8=0 :: M=M+1 
880 DISPLAY AT(10,8):P :¡ DISPLAY AT(10,11):"+" :: DISPLAY AT(10,12):J :: DISPLA 
Y AT(10,15)BEEP:"=" :: R=P+J :: Q=Q+1 :: ACCEPT AT(10,17)VALIDATE(DIGIT):S :: IF 
S=R THEN 920 :: CALL SOUND(100,880,2,900.2,920,2) 

900 DISPLAY AT(12,3):"QUE PENA, NO ESTA BIEN’ :: SOSUB 9000 :: DISPLAY AT(12,3): 

N ■ 

910 IF 8=2 THEN 930 :: DISPLAY AT(12,3):"POR FAVOR,INTENTA NUEVAMENTE" ¡: SOSUB 
9000 :: DISPLAY AT(13,1):" 

911 SOTO 880 

920 DISPLAY AT(12,3):"ESO ESTA BIEN !!! ’ :: SOSUB 9000 :¡ IF M=5 THEN 980 E 

LSE 870 

930 N=N+1 :: CALL HCHAR(5,3,128.28):: DISPLAY AT(6,1):"0 1 2 3 4 5 6 7 8 9 10 11 
12" :: IF P=0 THEN T=3 ELSE T=P*2+3 

935 CALL COLOR(14.12,1) 

936 FOR 66=1 TO 300 :: NEXT 66 

940 FOR G=T TO J12+T :: FOR RR=1 TO 50 :: NEXT RR :: CALL HCHAR(5,6.136):: NEXT 
5 :: FOR L=1 TO 10 :: DISPLAY AT(10,16):R :: FOR 1=1 TO 50 :: NEXT I 

(CONTINUARA EN EL PROXIMO NUMERO) 
Programa realizado por Epi 
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TEXAS INSTRUMENTS 
MICROCOMPUTADOR 
TI-99/4A 


DESCRIPCION 
DE LOS 
LENGUAJES 
DE 

PROGRAMACION 


TI BASIC 

Con su TI Personal Computer Ud. 
tiene la ventaja de tener incorpo¬ 
rado el lenguaje TI BASIC, que 
otros sistemas no lo tienen. Para 
adquirirlo deben abonar un adicio¬ 
nal, y cargarlo dentro de la máqui¬ 
na cada vez que lo necesite. 

El TI BASIC es un lenguaje de pro¬ 
gramación totalmente versátil di¬ 
señado para hacer más fácil la 
realización de programas. 

Por su potencia y precisión Ud. 
puede aplicarlo a una gran varie¬ 
dad de problemas, aunque sea 
uno de los lenguajes más fáciles 
de aprender. 

El TI BASIC incluye: 

• Variables alfanuméricas hasta 
255 caracteres. 

• Arreglos de tres dimensiones 
numéricas o alfanuméricas. 

• Edición de líneas de programas. 

• Capacidad de renumeración de 
líneas. 

• Nombre de variables hasta 15 
caracteres. 

• Mensajes de error sobre panta¬ 
lla. 


• Set completo de caracteres 
standard. 

• Potentes herramientas de de¬ 
puración de programas. 

TI EXTENDED BASIC 

El TI EXTENDED BASIC ofrece la 
misma versatilidad, precisión y fá¬ 
cil operación que el TI BASIC. 
Este lenguaje más potente y veloz, 
le da a su TI-99/4A un número im¬ 
portante de capacidades adicio¬ 
nales como: 

• Más de 40 sentencias, coman¬ 
dos, funciones y subprogramas 
nuevos o expandidos. 

• Permite líneas multisentencias, 
que dan mayor velocidad y efi¬ 
ciencia. 

• Capacidad de escribir y usar 
subprogramas. 

• Posibilidad de cargary correr un 
programa desde otro (cambián¬ 
dolo). 

• Comandos de error. 

• Arreglos hasta siete dimensio¬ 
nes. 


ASSEMBLY TMS 9900 

En su computador personal TI-99 
/4A con la ayuda del módulo EDI- 
TOR/ASSEMBLER, el SISTEMA 
P-UCSD, o el módulo de comando 
MINI MEMORY, Ud. puede escri¬ 
bir programas fen el potente Len¬ 
guaje Assembly del Microproce¬ 
sador TMS 9900. 

Este es el más rápido, el más efi¬ 
ciente lenguaje con el que usted 
puede escribir en su microcom- 
putador, ya que está escribiendo 
directamente en lenguaje de má¬ 
quina. La comunicación a nivel de 
lenguaje de máquina, le da acceso 
a todas las cualidades del sistema, 
tales como sonido, voz, gráficos y 
accesos E/S (entrada/salida). Ade¬ 
más provee la mayor velocidad po¬ 
sible al microprocesador de “16 
bit” incorporado a su TI-99/4A. 

Su programa Assembly puede ser 
escrito para ejecutarse en TI EX¬ 
TENDED BASIC. UCSD PASCAL o 
por medio del módulo de coman¬ 
do MINI MEMORY. 

Para utilizar el módulo de coman¬ 
do Editor/Assembler se requiere 
del Sistema de Expansión Periféri¬ 
co, Tarjeta Expansión de Memoria, 
Tarjeta Controlador Diskette y una 
unidad de diskette. 


TI LOGO II 

TI LOGO, TI LOGO II -en castella¬ 
no-, es un lenguaje ideal de com¬ 
putación para niños y estudian¬ 
tes de todos los niveles y habilida¬ 
des. que encuentran en TI LOGO II 
excepcionalmente fácil de enten¬ 
der, haciendo de la instrucción un 
juego agradable y divertido. 

Paso a paso, el niño va descu¬ 
briendo un método de enseñanza 
que lo anima a participar e incluso 
a controlar su propio aprendizaje. 
En el modo inmediato o progra- 
mable el lenguaje ayuda al estu¬ 
diante a desarrollar su habilidad 
para comunicarse y permite la ela¬ 
boración de ideas a través de dibu¬ 
jos lineales (tortuga) o gráficos ani¬ 
mados (actores). 

El estudiante puede controlar la 
forma de los actores, su color, 
velocidad, dirección y posición so¬ 
bre coordenadas x/y; pudiendo 
controlar además hasta 32 acto¬ 
res, individualmente o en grupo. 
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La “Tortuga”, le permite al estu¬ 
diante trazar líneas hacia adelan¬ 
te, hacia atrás, a la derecha, a la iz¬ 
quierda, o girar 360°, y además 
desplazarse sin marcar su trayec¬ 
toria. 

El niño puede cambiar las líneas, 
actores y fondo de pantalla por 
alguno de los 16 colores. 

El nuevo TI LOGO II incluye: 

• Música con tres voces y un ge¬ 
nerador de ruidos. 

• Cinco actores predefinidos con 
la opción de modificarlos. 

• Doble espacio de memoria utili- 
zable. 

• Capacidad de comandar su im¬ 
presor a través de la interfase 
RS 232C. 

Aún cuando los comandos de TI 
LOGO II, están formados por sim¬ 
ples palabras en castellano que un 
niño puede entender fácilmente, 
el lenguaje también incorpora mu¬ 
chas características sofisticadas 
de programación, tales como: la¬ 
zos, niveles de decisión y recur- 
sión. 

El sistema TI LOGO II requiere el 


uso de Expansión de Memoria y 
una unidad de diskette. 


UCSD PASCAL, Versión IV.O 

El UCSD PASCAL, es un lenguaje 
de programación altamente es¬ 
tructurado, siendo más rápido, 
más lógico y sustancialmente más 
potente que el TI BASIC. 

Con UCSD PASCAL, usted puede 
escribir programas más potentes 
sobre su microcomputadory tiene 
la ventaja de poder utilizar mu¬ 
chos de los programas existentes 
en UCSD PASCAL con pocas mo¬ 
dificaciones. 

Para correr programas en el Siste¬ 
ma “P-UCSD”, programas en 
Assembly TMS 9900, necesita el 
sistema de expansión periférico, 
tarjeta expansión de memoria, tar¬ 
jeta Código “P”, tarjeta controla¬ 
dor de diskette, y como mínimo 
una unidad de diskette. Además 
los módulos y diskette que confor¬ 
man el software de aplicación ne¬ 
cesaria. 


¡ 3 § 


TI PILOT 

El TI PILOT es un lenguaje fácil de 
utilizar para el desarrollo y uso en 
lecciones de instrucción asistidas 
por computadoras (CAI - Compu¬ 
ter Assisted Instruction). 

TI PILOT es ideal para los educa¬ 
dores, ya que les provee una he¬ 
rramienta adecuada para el desa¬ 
rrollo de exámenes y otros ejerci¬ 
cios en una gran variedad de áreas. 
El TI Pl LOT fue diseñado por espe¬ 
cialistas del CAI para ser usado 
con el TI-99/4A. 

Permite a su vez, al programador, 
acceder a instrucciones de pro¬ 
gramación, tales como actores, 
efectos sonoros, y gráficos en co¬ 
lores. 

El lenguaje requiere el sistema de 
expansión periférica, tarjeta códi¬ 
go “P”, tarjeta expansión de me¬ 
moria, tarjeta controlador de dis¬ 
kette y una o más unidades de dis¬ 
kette. 
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PROGRAMAS 


PACMAN 

Para lograr los símbolos especiales, hay que entrar 
los caracteres correspondientes en modo “G”. 


Comp.: ZX SPECTRUM 

PANTALLA Conf.: 16 K 

Cías.: ENTR 
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2 PRINT RT 15,3; FLRSM 1,"PUL 
SR UNR TECLA": PRINT RT 19,7;"00 
NTROLES: 5,6,7,8" 

3 IF INKEY*="" THEN GO Tü 2 

4 LET t=0: LET I. =4: LET K. =0; 
LET 9=0: LET p=0: LET a*10: LET 

b = 15: LET C = 10: LET d=15: LET e = 
4000: LET f *4200 

5 LET 9=9+1 

6 PAPER 7: CLS : BORDER 1: IN 
K 2: PAPER 7 

10 PRINT RT 0,5; 


";RT x+l,y; 



1017 LET p =p-l 
1020 PRINT RT X,y, ' 

1030 IF X =10 AND y=5 THEN LET y = 
24 

1040 IF X =10 AND y =25 THEN LET y 

2000 IF CÜDE SCREEN* (X,y*-1)=0 T 
HEN GO TO 2010 

2001 IF CODE SCREEN* íx+l,y-l)=0 
THEN GO TO 2010 

2005 IF INKEY$ = "5" AND y>5 THEN 
LET y =y-1 

2010 IF CODE SCREEN* íx,y+2)=0 T 
HEN GO TO 2020 

2011 IF CODE SCREEN* Cx+l,y+2)=0 
THEN GO TO 2020 

2015 IF INKEY$="8" AND y<25 THEN 
LET y = y +1 

2020 IF CODE 5CREEN$ ÍX+2,y»=0 T 
HEN GO TO 2030 

20*21 IF CODE SCREEN$ <X+£,y+l)=0 
THEN GO TO 2030 

2025 IF INKEY $ = "6“ AND X<19 THEN 
LET X = X +1 

2030 IF CODE SCREEN$ ix-l,y)=0 T 

HEN GO TO 2040 

2031 IF CODE SCREEN $ Cx-l,y+l)*0 
THEN GO TO 2040 

2035 IF INKEY*="7" AND X>1 THEN 
LET X =X -1 
2040 GO TO 800 

3000 BEEP .03,30; LET t=t+10: RE 
TURN 

3100 FOR n =20 TO 40: BEEP .02,fV. 

NEXT n: LET P =25: RETURN 
3300 FOR n =0 TO 20: BEEP ,1,-n: 
NEXT n 

3315 PRINT RT a,b;" ";RT a+l,b; 


4046 LET 

4047 LET 
4043 LET 

4049 LET 

4050 LET 

4051 LET 

4052 LET 

4053 LET 

4054 LET 

4055 LET 

4056 LET 

4057 LET 
4053 LET 

4059 LET 

4060 LET 

4061 LET 

4062 LET 

4063 LET 

4064 LET 

4065 LET 

4066 .LET 

4067 LET 

4068 LET 

4069 LET 

4070 LET 

4071 LET 

4072 LET 

4073 LET a=2 

4074 LET a=3 

4075 LET a=4 

4076 LET b =20 

4077 LET b = 19 
4073 LET b = 18 
4079 LET b = 17 

4030 LET a=5 

4031 LET a =6 

4032 LET a=7 

4033 LET b = 16 

4034 LET 

4035 LET 


a =9 

RETURN 

a =8 

RETURN 

a =7 

RETURN 

b =8 

RETURN 

b =7 

RETURN 

b =6 

RETURN 

a =6 

RETURN 

a =5 

RETURN 

a =4 

RETURN 

a =3 

RETURN 

a =2 

RETURN 

a =1 

RETURN 

b =7 

RETURN 

b=S 

RETURN 

b = 9 

RETURN 


= 10 
= 11 
= 12 
= 13 
= 14 
= 15 
= 16 
= 17 
= 18 
= 19 
= 20 
= 21 


RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
=4000: RETURN 
=4000: RETURN 


í 10 

FOR 

n =0 

TO 7: 

RERD 

X : 

POKE 

3316 

PRINT RT X 

, y" " ; RT x + 1, 

y; 

4200 

LET 

C 

= 9 


LET d s15 

USR 

’B" +n 

. X : 

NEXT 

n 





4201 

LET 

c 

= 8 


LET d = 15 

120 

FOR 

n =0 

TO 7: 

RERD 

X : 

POKE 

3320 

LET e =400G 

: LET X = 1: LET 

y = 

4202 

LEI 

c 

= 7 


RETURN 

USR 

■N" +n 

. X ; 

NEXT 

n 



6 




4203 

LE 1 

d 

= 14 

RETURN 

130 

FOR 

n =0 

TO 7: 

RERD 

X : 

POKE 

3330 

LET 1=1-1: 

PRINT RT 9,2; i. 


4204 

LET 

d 

= 13 

RETURN 

U5R 

1 J" +r 

, X : 

NEXT 

n 



IF l 

=0 THEN GO 

TO 3390 


4205 

LET 

c 

= 6 


RETURN 

140 

FOR 

n =a 

TO 7: 

RERD 

X : 

POKE 

3340 

GO TO 910 



4206 

LET 

c 

= 5 


RETURN 

USR 

‘G" +n 

, X : 

NEXT 

n 



3350 

FOR n =0 TO 

20: BEEP ,1,-n 


4207 

LET 

c 

= 4 


RETURN 

150 

DATF 

0 , 

0,3,7, 

15.9, 

3 1 , 

30,0,0 

NEXT 

n 



4208 

LET 

d 

= 1P 

RETURN 

, 192 

,224 , 

240 

, 144,248,120,30,31,1 

3365 

PRINT RT C 

, d , " " ; RT + 1, 

d ; 

4209 

LET 

d 

= 11 

RETURN 

4,4, 

5,3 , C 

, 0, 

120,243,112 

, 32 

,96,19 





4210 

LET 

d 

= 10 

RETURN 

2,0, 

0 






3366 

PRINT RT x 

, y ; " " ;hT x+1, 


4211 

LET 

d 

= 9 


RETURN 

160 

FOR 

n =0 

TO 7: 

RERD 

X : 

POKE 




4212 

LET 

C 

= 3 


RETURN 

USR 

■fl" +n 

, X : 

NEXT 

n 



3370 

LET f=4200 

. LET X = 1: LET 


4213 

LET 

c 

-p 


RETURN 

170 

FOR 

n =0 

TO 7: 

RERD 

X : 

POKE 

6 



4214 

LET 

c 

= 1 


RETURN 

USR 

■S" +n 

, x : 

NEXT 

n 



3380 

LET I = L-1: 

PRINT hT 9.2; i. 


4215 

LET 

d 

= 10 

RETURN 

iea 

FOR 

n =0 

TO 7: 

RERD 

X : 

POKE 

IF i 

=0 THEN GO 

Tü 3390 


4216 

LET 

d 

= 11 

RETURN 

USR 

’O" +n 

. X : 

NEXT 

n 



3385 

GO TO 940 



4217 

LET 

d 

= 1 P 

RETURN 

190 

FOR 

n —0 

TO 7: 

RERD 

X : 

POKE 

3390 

PAPER 6: INK 0: PRINT RT 

11 

4218 

LET 

d 

= 13 

RETURN 

USR 

’F" +n 

, x : 

NEXT 

n 



,5; " 

i**PRRTIDfi 

ACABADA * * *": INK 

4219 

LET 

d 

= 14 

RETURN 

200 

INK 

5: 

3RINT 

RT 5, 

9; " 

■ " ; RT 

2; PRINT hT 12, 

2; " *TODAS LAS UID 

4220 

LET 

d 

= 15 

RETURN 

5,22 


R 1 

19,6; 1 

■ " , RT 

19 

,25; ■ 

RS PERDIDAS*": 

PAPER 7 


4221 

LET 

d 

= 16 

RETURN 


RETURN 


INK 1 
750 LET X =1: 


LET y =6: LET i=4 


300 IF CODE SCREEN* (x,y)=46 TH 
EN GO SUB 3000 

301 IF CODE SCREEN* (x+l,y)=46 
THEN GO SUB 3000 

802 IF CODE SCREEN* íx,y+l)=46 
THEN GO SUB 3000 

803 IF CODE SCREEN* (x+l,y+l)=4 
6 THEN GO SUB 3000 

805 IF RTTR íx,y)=61 OR RTTR «X 
+ l,y)=61 OR RTTR (x , y +1) =61 OR h 
TTR (X + 1,y +1) =61 THEN Gü SUB 310 
0 

.849 INK i: PRINT RT X , y ; " BN M ; RT 
x + 1, y "UN" 

850 IF RTTR (a,b)=57 OR RTTR (a 
+1 , b) =57 OR RTTR (a.b+1)=57 OR fi 
TTR (a +1,b + 1) =57 THEN GO TO 3400 
860 IF RTTR (a,bi=60 OR RTTR (a 
+l,b)=60 OR RTTR (a,b+1)=60 OR R 
TTR (a+l,b+1)=60 THEN Gü Tü 33üü 
S70 IF RTTR í C . d ) =57 OR RTTR (c 
+1 , d) =57 OR RTTR íc,d+l)=57 OR R 
TTR í C +1,d +1) =57 THEN GÜ Tü 3450 
880 IF RTTR ( C , d) =60 OR RTTR ic 
+1,d) =60 OR RTTR í c , d +1) =60 OR R 
TTR C C + 1,d +1) =60 THEN GÜ Tü 3350 

905 INK 3 : PRINT RT a , b.i " . . " ; RT 
a +1, b; " . . 

906 LET fíi =0: LET g=g+l 

907 IF g>20 THEN LET g=0 

908 INK 5: IF 9=20 RND €>4014 R 
ND €<4032 THEN PRINT RT a+l,b,"l 

910 LET € =€ + 1; LET ni =rn +1: Gü SU 
B e 

912 IF P < = 0 RND íiV <2 THEN Gü Tü 
910 

_ 915 LET j =0: IF p>0 THEN LET j = 

*920 INK j: PRINT RT a,b;" hS";RT 
a+l,b;"DF" 

930 INK 3: PRINT RT C,d , ". ."; RT 
c +1, d ; " . . " 

931 LET n=0: LET 9=9+1 

932 IF g>20 THEN LET 9=0 

933 INK 5: IF 9=20 RND i >4205 R 
ND _ f<4274 THEN PRINT RT C + 1 , d + 1; 

940 LET f = r +1: LET n=n+l Gü SU 
B f 

942 IF p<=0 RND n<2 THEN Gü Tü 

940 

945 LET ,.i=0 IF p >0 THEN LET J = 

R 

"950 INK j PRINT RT c,d;"RS";RT 
C + 1 , d " DF " : INK i 
1000 IF p <= 0 THEN LET p$='OFF" 

IF P<=0 THEN LET x =4 

1002 IF p>0 THEN LET p$^" ÜN". I 

F P >0 THEN LET i=l 

1015 PRINT RT 3,0;t; PRINT RT 3. 
28; P $ 


3392 INPUT "Otra partida 
1 . 1 ) * 

3393 IF w * = "n 

3394 IF W$="S 
3400 FOR n =30 TO 50 
NEXT n 

3415 PRINT RT a.b;" 


THEN GO Tü 5000 
THEN GO Tü 1 

BEEP .1,n: 


4222 LET d =1 

4223 LET d=18 

4224 LET d = 19 

4225 LET d=20 


".; RT a +1, b.; 

3420 LET t = t +250: LET e=4000 
3430 LET K=K+1: PRINT RT 9,29; K. 
3440 Gü Tü 910 

3450 FÜR n =30 Tü 50: BEEP .1.n : 
NEXT n 

3465 PRINT RT c,d;" ";RT c+1,d: 


3470 

3475 

3480 

4000 

4001 

4002 

4003 

4004 

4005 

4006 

4007 

4008 

4009 

4010 

4011 

4012 

4013 

4014 

4015 

4016 

4017 

4018 

4019 

4020 

4021 

4022 

4023 

4024 

4025 

4026 

4027 
4023 

4029 

4030 

4031 
. 4032 

4033 

4034 

4035 

4036 

4037 

4038 

4039 

4040 

4041 

4042 
404 3 

4044 

4045 


LET t 
LET K 
Gü Tü 
LET a 
LET a 
LET a 
LET b 
LET b 
LE T b 
LET a 
LET a 
LET a 
LET a 
LET a 
LET a 
LET b 
LET a 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET b 
LET b 
LET a 
LET a 
LET a 
LET a 
LET a 
LET a 
LET b 
LET b 
LET b 
LET a 
LET a 
LET a 


= t +250: LET f =4200 
= K +1: PRINT RT 9.29 ; K. 
940 

= 9. LET b = 15. RETURN 
= 8: LET b = 15: RETURN 
=7 RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 


= 14 
= 13 : 
= 12 : 

= 9 : 

= 10 
= 11 
= 12 
= 13 
= 13 
= 14 
= 15 
= 16 
= 12 
= 11 
= 10 
= 9 : 

= 17 
= 18 
= 19 
= 10 
= 11 
= 12 
= 13 
= 12 
= 11 
= 10 




4Í 

4227 

4228 

4229 

4230 

4231 

4232 

4233 

4234 

4235 

4236 

4237 

4238 

4239 

4240 

4241 

4242 

4243 

4244 

4245 

4246 

4247 

4248 

4249 

4250 

4251 

4253 

4254 

4255 

4256 

4257 

4258 

4259 

4260 

4261 

4263 

4264 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 
4 273 

4274 

4275 

4276 

4277 

4278 

4279 

4280 

4281 

4282 

5140 


LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET d 
LET d 
LET d 
LET C 
LET c 
LET C 
LET C 
LET c 
LET C 
LET d 
LET d 
LET d 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
STOP 
5 RUE 


= 21 
-oo 
= 23 
= 24 
= 2 
= 3 
= 4 
= 5 
= 6 
= 7 
= 23 
=22 
=21 
= 8 : 
= 9: 
= 10 
= 11 
= 12 
= 13 
= 22 
= 23 
= 24 
= 14 
= 15 
= 16 
= 17 
1S 
19 


RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
= 10: LET d =15: 
=4200. RETURN 


RETURN 
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SOFTWARE 

EDUCATIVO 



A todo aquel que cree en las 
computadoras y que com¬ 
prende el impacto que tar¬ 
de o temprano causarán 
en nuestras vidas, tal vez le sor¬ 
prenda saber que la gran mayoría 
de maestros y profesores están 
completamente desinformados de 
cuanto pueden las computadoras 
ayudarlos en asistir y enriquecer la 
tarea educativa. Tal vez sorprenda 
más aú^ la activa resistencia exis¬ 
tente a la introducción en el aula 
de computadoras para la enseñan¬ 
za de las materias tradicionales. 
Aún en aquellas instituciones en 
las cuales han adquirido algunas 
máquinas, éstas han sido coloca¬ 
das en un lugar separado, con 
acceso muy restricto, y son con¬ 
sideradas como “tema aparte”, 
como “Geografía” o “Matemáticas”. 
Habría que tratar de resolver dos 
motivos: Uno es porqué existe tanta 
resistencia en los centros educa¬ 
tivos a implementar computado¬ 
ras (a cualquier escala), y segun¬ 
do, porqué se utilizan tan mal, en 
donde ya las poseen. 

Con el advenimiento de las com¬ 
putadoras personales de bajo cos¬ 
to como la CZ-1000 y las TK, no 
puede ya argumentarse el altocos- 
to. Hoy en día puede montarse un 
pequeño grupo funcional, con po¬ 
co gasto, pudiéndose completar 
hasta con elementos donados y de 
segunda mano, como televisores, 
cables y grabadores. 
Seguramente la explicación a esto 
sea por un lado, la falta de formación 
informática en los educadores y 
por otro, la inexistencia de software 
educativo adecuado en el merca¬ 
do. 

Sin embargo, existen varios progra¬ 
mas llamados “educativos”, pero 
son en su mayoría del tipo “adivi¬ 
nanza” en una especie de enfren¬ 
tamiento maquina/alumno al que 
se intentan respuestas por el mé¬ 


todo múltiple choice. A lo mejor 
resultan atractivos una o dos ve¬ 
ces, pero resultan de poca utilidad 
para el educador o padres que de¬ 
sean usarlo en forma estructura¬ 
da y regular. 

Cuáles serán las razones de que 
casi no existan estos preciosos 
programas? Existen muchas razo¬ 
nes.Porun lado.esmuy pocoel ré¬ 
dito económico; no existen aún 
“software houses” que dediquen 
tiempo y esfuerzo a ello; y los 
programadores solitarios no tie¬ 
nen un medio idóneo donde hacer 
conocer su trabajo (esta editorial 
espera venir a cubrir un vacío en 
ésto). Pero el principal problema 
es la falta de autores de progra¬ 
mas, que deberían ser los mismos 
profesores y maestros los más in¬ 
dicados. 

Sin embargo,ellos tienden aserun 
tanto conservadores y con profe¬ 
sores inseguros de usar este nue¬ 
vo medio, en primer lugar, difícil¬ 
mente podremos avanzar en los 
métodos de enseñanza. 

Qué es entonces lo que define a 
un buen paquete de software edu¬ 
cativo?. En primer lugar debe ser 
fácil de usar y entender. Sería inú¬ 
til, por ejemplo, producir un progra¬ 
ma que haga uso a full de las capa¬ 
cidades gráficas de la computado¬ 
ra, o use técnicas de programa¬ 
ción avanzadas si los usuarios 
(educador o educando), no pue¬ 
den entender cómo operarlo. En 
segundo lugar, el programa debe 
enseñar o examinar sobre un tema 
por lo menos tan bien como los 
métodos ya existentes. De otro 
modo las computadoras terminarán 
arrumbadas si no pueden mejorar 
significativamente al profesor jun¬ 
to al pizarrón. En tercer lugar, los 
programas deben ser anti-errores. 
O sea, no deben abortar por causa 
de un operador inexperto que es¬ 
té trabajando con él. Es como in¬ 
terrumpir una clase brillante; se 



pierde todo el hilo y el flujo de la 
lección, además de la pérdida de 
tiempo. Y por último, los progra¬ 
mas deben estar perfectamente 
documentados. Debe incluir ade¬ 
más Información tan simple como 
por ejemplo: como cargar el pro¬ 
grama, de que trata, para qué ran¬ 
go de edades está pensado, etc. 
Debe Indicar también qué opcio¬ 
nes están abiertas al usuario y 
siempre que se pueda, cómo po¬ 
dría adoptarse el programa para 
usarse en distintas situaciones. No 
hace falta recalcar que debe ser 
estimulante y visualmente bien 
presentado. 

Los resultados que pueden espe¬ 
rarse son comprobadamente óp¬ 
timos, y no se crea que la ¡dea es 
reemplazar al profesor ni mucho 
menos, sino que trata de poten¬ 
ciarlo con una herramienta poten¬ 
te. Todo lo que un profesor pueda 
hacer con una computadora, tam¬ 
bién podrá hacerlo sin ella pero le 
resultará más difícil y tedioso. Las 
computadoras motivan al estudian¬ 
te, ya de por sí tienen su propio 
atractivo, lo desafían a reaccionar, 
a responder, a crear, a razonar, a 
comprender. Puede vivir un mun¬ 
do de experiencias,ya que con una 
computadora pueden simularse to¬ 
do tipo de situaciones, reales o 
imaginarias, que de otro modo se¬ 
rían costosas o imposibles de re¬ 
producir en un aula. 

Solamente cuando existan gran¬ 
des cantidades de programas tra¬ 
tando en todas las áreas, y más o 
menos extensamente en cada una 
en particular, enseñando, exami¬ 
nando. ilustrando y recopilando, 
ias computadoras emergerán de la 
seguridad de sus “Salas Reser¬ 
vadas" y obtendrán un lugar co¬ 
mún en muchas aulas. 

Cómo pueden los profesores y pa¬ 
dres encontrar lo que esté dispo¬ 
nible? Hoy en día están proliferan- 
do los negocios especial izados só¬ 
lo en computadoras personales, 
sobre todo en el rango de las Sin¬ 
clair, Texas y Apple. En ellos es 
posible pedir referencias o demos¬ 
traciones de programas educati¬ 
vos; vaya donde le dediquen el 
tiempo suficiente a su consulta. 
Otro método es observando las re¬ 
visiones de soft de las revistas es¬ 
pecializadas que normalmente re¬ 
ciben información de todo lo que 
se produce en el tema. 

No conocemos ninguna casa es¬ 
pecializada en software educati¬ 
vo en el país, asi que a todos aque¬ 
llos que vean en esto una necesi¬ 
dad o una obligación, manos a la 
obra, a teclear! 
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POR FIN ENTRE NOSOTROS, LA 

ZX SPECTRUM 


Y por fin, suenen clari¬ 
nes, llegó de una vez por 
todas la tan anunciada 
Spectrum. Esa es la noti¬ 
cia que nos llegó a nues¬ 
tra redacción ya al cierre 
de la edición, desde Czer- 
weny Electrónica. El mo¬ 
delo que se comercializa 
es el de 48 K RAM. 

En la misma caja de la CZ 
1500 pero de color negro, 
contiene alrededor de dos 
docenas de circuitos integrados, entre los cua¬ 
les el ya popular Z 80, la ROM de 16 K, un 
modulador de color en PAL N, y el infaltable 
ULA. Tiene también 40 teclas con repetición au¬ 
tomática, pantalla de 24 líneas de 32 caracte¬ 
res (aunque hay programas que lo extienden a 
64), alta resolución gráfica de 256 x 192, ocho 
colores programables, 16 caracteres gráficos 
fijos y 21 definibles. 

No tiene sintetizador de sonido; sólo un gene¬ 
rador que permite controlar la altura y la dura¬ 
ción del tono en 10 octavas. El sistema de al¬ 
macenamiento sigue siendo en cassettes, pero 
muy mejorado; permite la grabación separada 


de programas, datos, bloques 
de memoria y pantallas; además 
se pueden verificar y se com¬ 
porta muy bien ante los clási¬ 
cos problemas de volumen, 
azimut, etc., de los grabadores. 
Como siempre, el manual en 
castellano que trae está bas¬ 
tante completo para el prin¬ 
cipiante. Tiene dos partes, 
una resumida para los más apura¬ 
dos y otra más extensa para los pacientes. 

La configuración del hardware de la Spectrum 
es mucho más flexible que la de los anteriores 
modelos de Sinclair, lo que hace esperar que 
seguramente aparecerán pronto en el merca¬ 
do todo tipo de periféricos de control, modens, 
etc. De momento es perfectamente compatible 
la impresora térmica TS 2040 ó Alphacon 32. 

Sigue utilizando también el método de obtener 
las sentencias de Basic de un solo toque de te¬ 
cla y con el detector de errores de sintaxis, dos 
logros que destacaron a las máquinas Sinclair. 

Con respecto al software, ya hay mucho dispo¬ 
nible, inclusive en castellano, y muy bueno por 
cierto. 



PERSONAL 
COMPUTER 
CLUB ARGENTINO 



ZX-FILTER 


El mejor club para usuarios de las más populares 
computadoras en nuestro país. 
Muchos beneficios y ventajas para sus socios; boletín 
del club, descuentos, ofertas especiales, sorteos 
y mucho más. 

Usuarios del interior bienvenidos! 

Solicite mayor información al: 
Personal Computer Club Argentino CC 538 
(1900) La Plata, Argentina 


Indispensable para todo poseedor de TK 83/85, 

CZ 1000/1500. 

- Elimina los problemas de carga de programas; filtra 
zumbidos, distorsiones y ruidos provenientes del grabador. 

- Permite el encendido y apagado de la computadora por medio 
del interruptor incorporado. 

-Posee salida auxiliar para realizar copias back up. 

- Led indicador de nivel. 

-Cassette patrón para calibración de azimut, con instrucciones. 

ZONAS DISPONIBLES PARA DISTRIBUIDORES. 
PEDIDOS A: PERSONAL COMPUTER 46 # 998, 

(1900) La Plata T.E.: 021-213441 
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CORREO CONSULTAS 


■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■i 

En esta sección atendemos todas aquellas 
consultas y sugerencias que nuestros lectores 
deseen realizar. Para ello sólo debe dirigirse 
a esta redacción, sección “Consultas”. 
Pero ya se nos han adelantado algunos, que 
habiéndose enterado de la proximidad de la 
edición del primer número, nos han hecho 
llegar las primeras consultas. 


Soy un afortunado posee¬ 
dor de una ZX 81 y de una 
ZXSpectrum de 48K, y qui¬ 
siera saber qué ventajas e 
inconvenientes tienen las 
ampliaciones de 64K pa¬ 
ra la ZX 81 y si se pueden 
cargar programas de 16K 
de Spectrum en mi modelo 
de 48K. Se puede usar la 
expansión de 16Kde la ZX 
81 en la Spectrum?. 

Carlos Fernández 
San Nicolás de los Arroyos 

Como muchos saben, el 
máximo de lugares de me¬ 
moria que se pueden d¡- 
reccionar con el micro- 
procesador Z 80 son 64K 
(sin trucos de paginación, 
para lo cual se necesita 
más hardware). 

Esas direcciones incluyen 
las de RAM y las de ROM. 
En la ZX 81 y semejantes, 
los primeros 8Kestán ocu¬ 
pados por la ROM, y los si¬ 
guientes 8K por una “ima¬ 
gen de la ROM”, y luego, 
los 1 Kó 2Kde RAM según 
el modelo. Ahora bien, al 
conectar la expansión de 
16K, se desconecta auto¬ 
máticamente la memoria 
interna para dar lugar a los 
16K completos (no se su¬ 
man a los números 1 ó 2K 
existentes). 

Estos 16K quedan ubica¬ 
dos por encima de la direc¬ 
ción 16K, o sea que llega 
hasta la dirección 32K. Es¬ 
to es así porque en princi¬ 
pio Sinclair había pensado 
en lanzar una ROM más 
completa que ocupara los 
16K iniciales. Por lo que 
sabemos ésto nunca se 
concretó, pero otros fabri¬ 
cantes programaron me¬ 
morias EPROM con ruti¬ 
nas especiales de alta re¬ 
solución gráfica o con otros 
lenguajes con el Forth. 
Con las ampliaciones de 


64K ocurren unas situa¬ 
ciones particulares: los pri¬ 
meros 8K no se pueden 
usar ya que comparten las 
mismas direcciones que la 
ROM,lossiguientes8Ksó- 
lo pueden accederse con 
PEEK y POKE o para al¬ 
macenar rutinas en len¬ 
guaje de máquina, y los úl¬ 
timos 48K que quedaran 
si pueden usarse normal¬ 
mente desde el BASIC. 

Si cabe algún inconvenien¬ 
te es que al usar a fondo 
una de estas memorias, se 
incrementa notablemente 
el tiempo de SAVE y LOAD, 
aumentando las probabili¬ 
dades de que después de 
largos 20 minutos de es¬ 
pera, el programa no entra 
y hay que tratar otra vez... 
Por otro lado, no se posi¬ 
ble usar la expansión de la 
ZX 81 en la Spectrum di¬ 
rectamente. Y respecto de 
si se pueden usar progra¬ 
mas de 16K en la tuya de 
48K, no hay ningún proble¬ 
ma, lo que no funciona es 
lo contrario. 


¿Qué diferencias existen 
entre los distintos modelos 


de computadoras del tipo 
Sinclair que están apare¬ 
ciendo en Argentina? 

Yo tengo una TS 1000 con 
16 Ky quisiera saber si son 
intercambiables los pro¬ 
gramas con las otras mar¬ 
cas. 

Además tengo el proble¬ 
ma de que a veces cuando 
estoy usando la máquina y 
apenas la toco se “cuelga” 
y no hay manera de que 
vuelva a arrancar, sólo vol¬ 
viéndola a apagar y pren¬ 
der. 

Humberto Maio 
Quilmes 

Los "clones” de la original 
ZX 81 que existen en nues¬ 
tro país son: 

CP 200 Prológica (Brasil) 
TK82;TK83;TK85de Mi- 
crodigital (Brasil/Argentina) 
TS 1000; TS 1500 de Ti- 
mex Sinclair (E.U.A.) 

CZ1000; CZ1500 de Czer- 
weny (Portugal/Argentina) 
Las diferencias entre ellas 
son mínimas, en lo que se 
refiere a compatibilidad 
de software. Sólo hemos 
hallado que existen algu¬ 
nos programas que tienen 
lenguaje de máquinas, que 
no funcionan en la TK 85 
debido a que ésta tiene 
una ROM más extensa pa¬ 


ra la generación de lasfun- 
ciones que tiene. 
Respecto a accesorios de 
hardware, no hemos en¬ 
contrado ninguna incom¬ 
patibilidad, solo en la CP 
200, que tiene un conector 
completamente distinto en 
sus conexiones. 

La ZX 81 sólo tiene el in¬ 
conveniente en su versión 
sin expansión,que sólotie- 
ne 1K de memoria y no 
puede recibir programas 
de una TS 1000 por ejem¬ 
plo, que exceda esa longi¬ 
tud. 

Cuando indicamos en el 
encabezamiento de nues¬ 
tros programas “Compati¬ 
bles con”, nos referimos 
por lo general a la TS 1000 
dando a entenderque fun¬ 
cionará en todas las de¬ 
más (con la ZX 81 habría 
que probar en el caso de 
programas indicados como 
de 2K, si entran de todos 
modos seguramente eli¬ 
minando partes innecesa¬ 
rias se los podría ajustar 
para que funcionen en esa). 

En el caso de compatibles 
con la ZX Spectrum, la ma¬ 
yoría de los programas que 
publicaremos lo serán tam¬ 
bién para la TS 2068. 

Tu otro problema, es a cau¬ 
sa del falso contacto que 
ocurre en el conector de 
borde de la ampliación de 
16K. Cabe intentar varias 
soluciones; limpiarcon una 
goma de borrar tinta, las 
patitas o pistas de la pla¬ 
queta de la máquina; usar 
luego aerosol, limpiacon- 
tactos desengrasantes; re- 
pasarcon estaño las pistas 
para darles un poco más 
de espesor; o utilizar un 
accesorio que mantenga 
firme a la máquina junto 
con el pack. También me¬ 
jora al conectarel packjun- 
to con la impresora. 



Nombre 


SOLICITUD DE SUSCRIPCION 

Deseo suscribirme a K64 por el período de 6 meses □ laño □ desde el N°.alN° 

para lo cual adjunto Cheque/Giro Postal N°.c/Bco. 

Suscripción 6 meses A 9.- K64: Obsequiará una calcomanía 
Suscripción 1 año A 18.- K64: Obsequiará 1 Cassette con juego 
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Provincia 


País 


Recorte esta ficha y envíela dentro’de un sobre a: 

Cerrito 1320 - I o P. (1010) - Buenos Aires ARGENTINA 
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Firma 

































Sistema concord de 
altísima velocidad (*) 
Instrucciones en castellano 

COMPATIBLE PARA 

SPECTRUM 


• TK 90 



PROXIMAMENTE SINCLAIR 1000 TK 83/85 CON 
SISTEMA CONCORD Y COMMODORE 64 


PIDALOS 
EN NEGOCIOS 
DE COMPUTACION 
Y DISQUERIAS 















































